从EXCEL录入单条数据到SQL SERVER中

granite16101

各位老师:
        我是一个SQL SERVER的出学者,以下的代码是在VBE中的,原本是用来将EXCEL 窗口中输入的信息写到ACCESS一个署名为"人员出入学科"的数据库中,如今我想将输入的信息写入到
SQL SERVER中MASTER数据库下面的"人员出入学科"表格中,请问能否在这段代码的基础上进行修改,能够适用于SQL SERVER?还是要重新编写其他的程序?谢谢!!!
Dim RS1 As Recordset
    Dim DB1 As Database
    Dim cnn As New ADODB.Connection
     Dim rst As New ADODB.Recordset
     Dim STPath, strSQL As String
     Dim RLD As ADODB.Field
     STPath = ThisWorkbook.Path & Application.PathSeparator & "人员培训档案.mdb"
  
    On Error GoTo 4000
    Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "人员培训档案.MDB")
    Set RS1 = DB1.OpenRecordset(Name:="人员出入学科", Type:=dbOpenDynaset)

    With RS1
      .AddNew
        .Fields("姓名工号").Value = Me.TextBox1.Value
        .Fields("学科").Value = Me.ComboBox1.Value
        .Fields("入科时间").Value = Me.DTPicker3.Value
      
         .Update
        MsgBox "记录增加完毕"
        MsgBox RS1.RecordCount
    End With
    DB1.Close
    Exit Sub
4000:
    DB1.Close