RE:Como conectar VB6 con mysql?
Yo conecto a MySql asi :
De referencia yo tengo "Microsoft ActiveX Data Objects 2.5"
Private Conexion As ADODB.Connection
Private Resultado As ADODB.Recordset
Private Sub Form_Load()
Set Conexion = New ADODB.Connection
Set Resultado = New ADODB.Recordset
Conexion.CursorLocation = adUseClient
Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=Host/Ip;" _
& "DATABASE=BaseDeDatos;" _
& "UID=Usuario;" _
& "PWD=Password;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
Conexion.Open
End Sub
' Ovbiamente cambia los datos de host, bd, usuario y clave...
Por ejemplo de un codigo para sacar el ultimo id
' Sacar el Ultimo Numero
Resultado.Open "SELECT MAX(id) FROM tabla", Conexion
' Si lo encuentra pasarlo...
If Resultado.RecordCount > 0 Then
Mayor = CInt(Resultado.Fields(0))
Else
' Si no hay aun Registros.. asignarle el numero 0
Mayor = 0
End If
' Para los DELETE, INSERT se utiliza..
Conexion.Execute " "
Para mas informacion puedes checar los ejemplos de aqui :
http://www.vbmysql.com/samplecode