Visual Basic - Cadena de conexion con autenticacion de sql

Public Sub ConectarBDSQL()

        Set cnn = New ADODB.Connection

             cnn.Provider = "SQLOLEDB"

             cnn.ConnectionString = "driver={SQL Server};" & _

                                               "server=Numero del servidor0; " & _

                                               "database=La base de datos; " & _

                                               "uid=Usuario sql;pwd=Password"

                                                cnn.Open

End Sub

Set rs = New ADODB.Recordset

	rs.Open "SELECT * FROM  Tabla", cnn, adOpenKeyset, adLockPessimistic

	With rs

		.AddNew

			rs!Campo = Objeto

		.Update

	End With