Base de datos con contraseña

Saludos.
Tengo una aplicación hecha en vb6, el código es el siguiente:
AccessConnect = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=SOLVEN~1.MDB;" & _
"DefaultDir=" & "C:\SOLVEN~1\;" & _
"UID=admin;PWD=XXXXX;"
Set Conn1 = New ADODB.Connection
Conn1.ConnectionString = AccessConnect
Conn1.Open
Set Cmd1 = New ADODB.Command
Cmd1.ActiveConnection = Conn1
Cmd1.CommandText = "SELECT * FROM USUARIOS WHERE (USUARIO= ) " & Text1.Text
'WHERE (Almacen= '" & Almacen & "')
Set Param1 = Cmd1.CreateParameter(, adInteger, adParamInput, 3)
Param1.Value = 10
Cmd1.Parameters.Append Param1
Set Param1 = Nothing
Set mrc = New ADODB.Recordset
mrc.Open "SELECT * FROM USUARIOS WHERE USUARIO = '" & Text1.Text & "'", Conn1, adOpenKeyset, adLockOptimistic
Todo muy bien hasta aquí, puedo buscar, ¿pero cómo puedo agregar o modificar datos a la base de datos?.
Gracias de antemano...