Gracias!!!!
dim. myConnection As String
' If the connection string is null, use a default.
If myConnection = "" Then
myConnection = "PWD=rala78;DSN=DESARROLLO;UID=lbarrien;SRVR=DESAR ROLLO;DB=PRUEBA"
End If
Dim myConn As New Odbc.OdbcConnection(myConnection)
Dim mySelectQuery As String = "SELECT NOMB_DEPA FROM DEPA "
Dim myOdbcCommand As New Odbc.OdbcCommand(mySelectQuery)
myOdbcCommand.Connection = myConn
myConn.Open()
Me.CmbDepartamento.Items.Add(myOdbcCommand.Execute Scalar)
Me.CmbDepartamento.Refresh()
'myOdbcCommand.ExecuteReader.NextResult()
myOdbcCommand.Connection.Close()
