Inserir dados sql server

bom dia amigos...


estou estudando aqui como inserir dados no sql server. achei alguns exemplos, porem não compreendi muito.

fiz um script aqui que esta dando erro se alguém poder me dar um luz?

Código:

Dim conexao As ADODB.Connection

Dim Rst As Recordset

Set conexao = New ADODB.Connection
conexao.ConnectionString = "ODBC,DESCRIPTION=TESTE;DRIVER=SQL Server;Server=M238-NB\SQLEXPRESS;Trusted_Connection=Yes;Database=PROJETO_CIC;TABLE=dbo.PROGRAMAS"
conexao.Open

Set Rst = conexão.Execute("INSERT INTO ([ID_GERAL]) values('" & Me.txt_1 & "')")
conexão.Close


abraços

bom.... meus amigos eu consegui uma solução:

Código:

Dim cnn As New ADODB.Connection
Dim conexao As String

Set cnn = New ADODB.Connection
cnn = "ODBC,DESCRIPTION=TESTE;DRIVER=SQL Server;Server=M238-NB\SQLEXPRESS;Trusted_Connection=Yes;Database=PROJETO_CIC;"
cnn.Open

cnn.Execute ("INSERT INTO dbo.PROGRAMAS (ID_GERAL) VALUES  (" & Me.txt_1 & ")")

               
MsgBox "cadastrado"

Porem queria saber se tem a possibilidade de fazer igual DAO.recordset

tipo assim só que em sql server?

Código:

Dim db As DAO.Database
Dim rs As DAO.Recordset


Set db = CurrentDb()
    Set rs = db.OpenRecordset("BANCODEDADOSCENTRAL") 'inseri na tabela
    rs.AddNew
    rs("CODPASTA") = Me.COD
    rs("DATA") = Me.DT
    rs.Update
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing