[Resolvido]Conexão Banco Sql

Bom dia amigos,

Tenho uma conexão que funciona normalmente quando o banco está em access, e eu gostaria de passar o banco para sql server, mas só que não estou conseguindo, vocês poderiam me ajudar, abaixo o código.
Obrigado.

Private Sub Comando10_Click()
Dim cnn As New ADODB.Connection
'Declara variável rs1 para os registros
Dim rs1 As ADODB.Recordset
'Abre a conexão com o banco
Set cnn = CurrentProject.Connection
'Abre a conexão com o registro
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
'Abre a Tabela_Bens
rs1.Open "Bens", cnn, , , adCmdTable
'Procura e compara código do material entre as tabelas.
rs1.Find "NPlaqueta=" & Me.NPlaqueta, 0, adSearchForward, 1
Dim msg
msg = MsgBox("Tem certeza que deseja transferir o material: " & rs1("Material") & " do Setor " & Me.Localizacao & " para " & Me.Localizacao_Destino & "?!", vbYesNo, "Salvar")
If msg = vbYes Then


If Not rs1.EOF Then

rs1("LocalizaÇao") = Me.Localizacao_Destino
rs1.Update
'Emite uma mensagem informando a transferência.
MsgBox "O Material: |" & rs1("Material") & "| foi transferido para " & Me.Localizacao_Destino & "", vbExclamation, "Atenção!"
Exit Sub
End If

'Fecha os registros
rs1.Close
'Fecha a conexão
cnn.Close
'Fecha a conexão com o banco
Set cnn = Nothing
'Fecha a conexão com o registro
Set rs1 = Nothing
Exit Sub
DoCmd.RunCommand acCmdSave

msg = MsgBox("Registro Salvo com Sucesso")

Me.Salvo = "1"
Me.AllowEdits = False

Exit_Comando10_Click:
Exit Sub

Err_Comando10_Click:
MsgBox Err.Description
Resume Exit_Comando10_Click
End If
End Sub

Opa!

Altere o Set cnn para:

Código:


Set cnn = "Provider=sqloledb;Data Source=NomeServidor,1433;Initial Catalog=NomeBD;User ID=NomeUsuario;Password=Senha;"


Existe outra string de conexão via Client do sql, mas neste caso todas as máquina tem que ter o drive, já oledb é nativo.

Falow,

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.