encontre este link pero
http://www.canalvisualbasic.net/foro...ion-sql-19175/
igual no logro adaptador para VB6
alguna sugerencia,
yo uso las funciones de la siguiente manera :
Código:
Set rs = New Recordset
rs.Open "SELECT username FROM usuarios WHERE username='" & txtUserName.Text & "' AND PASSWORD=(SELECT MD5('" & txtPassword.Text & "'))", cn, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
también encontré este link la función me parece practica pero falta modificara para VB6, alguna sugerencia.
http://www.dotnetpuebla.com/portal/P...culos/848.aspx