Function ligasql()
Dim nomeBancoDados, nomeUsuario, senha As String
nomeBancoDados = "ITAVARES"
nomeUsuario = "fred"
senha = "1234"
'Declare variables'
Dim objMyConn As ADODB.Connection
Dim objMyCmd As ADODB.Command
Dim objMyRecordset As ADODB.Recordset
Set objMyConn = New ADODB.Connection
Set objMyCmd = New ADODB.Command
Set objMyRecordset = New ADODB.Recordset
'Open Connection'
objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=ITAVARES;User ID=fred;Password=1234;"
objMyConn.Open
'Set and Excecute SQL Command'
Set objMyCmd.ActiveConnection = objMyConn
objMyCmd.CommandText = "select NUMOF from tabOf"
objMyCmd.CommandType = adCmdText
objMyCmd.Execute
'Open Recordset'
Set objMyRecordset.ActiveConnection = objMyConn
objMyRecordset.Open objMyCmd
MsgBox (objMyRecordset.Index(1))
'Dim db As database
'Dim strConnection As String
'Set ws = DBEngine.Workspaces(0)
'Let strConnection = "ODBC;DSN=ITAVARES;UID=fred;PWD=1234"
'Set db = ws.OpenDatabase("", False, False, strConnection)
'"Data Source=ITAVARES;Provider= MSDASQL.1;Initial Catalog=Manit;Persist Security Info=True;User ID=fred;Password=1234; Option =3 "
' oConn.Open
'Dim rs As Recordset
'Set rs = db.openrecordset(NUMOF)
'Do While Not rs.EOF
' intID = rs!IDField
' MsgBox (intID)
' rs.MoveNext
'Loop
'rs.Close
'Set rs = Nothing
'rs.ActiveConnection = oConn
'rs.Open "SELECT * from tabOf"
End Function