Visual Basic - Conectar aplicacion VB a una red local

Dim CON As ADODB.Connection

Dim Comd As ADODB.Command

Dim Rs As ADODB.Recordset

Public Function Conectar_bd()

Set CON = New ADODB.Connection

Set comd = New ADODB.Command

Set Rs = New ADODB.Recordset

CON.CommandTimeout = 40

CON.CursorLocation = 1

CON.Open “DRIVER={MySQL ODBC 5.1 Driver};DATABASE=” & NomBd & “;SERVER=” & Servidor &     “;UID=” & Usuario & “;password=” & Pwd & “;PORT=3306;”

Set Comd.ActiveConnection = CON

End Function