¿Cómo cambiar la contraseña de usuario en vb?

¿La conexión a la base de datos es normal?

El siguiente es un ejemplo de código:

Conexión pública como ADODB.Connection

'#-------------- ------------#

'# Acceder a la conexión de la base de datos#

'#--------------- -----------#

Sub ConnectDB público (ByVal strDBFile como cadena)

Establecer conexión = Nueva conexión ADODB

Conexión .Abrir "PROVIDER=Microsoft.Jet.OLEDB.4.0; Fuente de datos=" amp; strDBFile amp ";"

End Sub

'#------- -------------#

'# Cambiar contraseña#

'#--------------- -----#

Función EditUser(ByVal FUser como cadena, ByVal FPwd como cadena) como booleano

Dim tRs como nuevo ADODB.Recordset

Dim sSql como cadena

En caso de error, reanudar siguiente

EditUser = False

sSql = "Seleccionar * de [Usuario] Donde [FUser]='" amp; amp; "'"

tRs.Open sSql, Conn, 1, 2

Si FPwd lt;gt "" Entonces tRs("FPwd") = MD5(FPwd)

'La contraseña primero se cifra con MD5 y luego se almacena en la base de datos

tRs.Update

tRs.Close

Set tRs = Nada

Si Err.Number = 0 Entonces EditUser = True

Finalizar función