Formulario Usuarios TIA

usuario
tiene 4 Label, 5 Button, 3 TextBox, 1GridView.

PUBLIC f AS Integer
PUBLIC au AS Integer
PUBLIC SUB Button2_Click()
IF TextBox3 = "" AND TextBox1 = "" AND TextBox2 = "" THEN
Message.Info("Ingrese datos...")
limpiar()
TextBox3.SetFocus
ELSE
TRY modulo.cn.Exec("insert into clave values( '" & Trim(TextBox3.Text) & "','" & Trim(TextBox1.Text) & "', '" & Trim(TextBox2.Text) & "') ")
IF ERROR THEN
Message.Error("Imposible Ingresar el usuario...")
ELSE
Message.Info("Usuario Ingresado...")
au = au + 1
' deshabilt()
ENDIF
modulo.rs = modulo.cn.Exec("select * from clave")
mostrar()
'limpiar()
deshabilt()
'ELSE
'Message.Info("Debe ingresar datos...")
ENDIF
END
PUBLIC SUB limpiar()
TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
END
PUBLIC SUB mostrar()
modulo.rs.MoveFirst
IF modulo.rs.Count > 0 THEN
Grid1.Columns.Count = 3
Grid1.Rows.Count = modulo.rs.Count + 1
Grid1.Columns[0].Width = 50
Grid1.Columns[1].Width = 250
Grid1.Columns[2].Width = 250
Grid1[0, 0].Text = "Idclave"
Grid1[0, 1].Text = "Usuario"
Grid1[0, 2].Text = "Password"
f = 1
modulo.rs.MoveFirst
DO WHILE modulo.rs.Available
Grid1[f, 0].Text = modulo.rs["idclave"]
Grid1[f, 1].Text = modulo.rs["usuario"]
Grid1[f, 2].Text = modulo.rs["contrasenia"]
f = f + 1
modulo.rs.MoveNext()
LOOP
ENDIF
END
PUBLIC SUB TextBox1_KeyPress()
IF Key.Code = 65293 THEN
IF TextBox1.Text = "" THEN
Message.Info("Ingrese Nombre de Usuario...")
TextBox1.SetFocus
ELSE
TextBox2.SetFocus
ENDIF
ENDIF
END
PUBLIC SUB TextBox2_KeyPress()
IF Key.Code = 65293 THEN
IF TextBox1.Text = "" THEN
Message.Info("Ingrese Clave de Usuario...")
TextBox1.SetFocus
ELSE
' habilit()
Button3.SetFocus
ENDIF
ENDIF
END
PUBLIC SUB deshabilt()
Button2.Enabled = FALSE
Button3.Enabled = FALSE
Button4.Enabled = FALSE
Button5.Enabled = FALSE
TextBox1.Enabled = FALSE
TextBox2.Enabled = FALSE
TextBox3.Enabled = FALSE
END
PUBLIC SUB habilit()
Button2.Enabled = TRUE
Button3.Enabled = TRUE
Button4.Enabled = TRUE
Button5.Enabled = TRUE
TextBox1.Enabled = TRUE
TextBox2.Enabled = TRUE
TextBox3.Enabled = TRUE
END
PUBLIC SUB Form_Open()
ME.Center
modulo.conectar
modulo.rs = modulo.cn.Exec("select * from clave")
mostrar()
'deshabilitar()
' deshabilt()
END
PUBLIC SUB Button1_Click()
' TextBox1.Clear
' TextBox2.Clear
limpiar()
habilit()
TextBox3.setfocus
END
PUBLIC SUB Button4_Click()
SELECT Message.Question("Desea eliminar el Usuario", "Si", "No")
CASE 1
TRY Modulo.cn.Exec("Delete from clave where usuario='" & Trim(UCase(TextBox1.Text)) & "'")
IF ERROR THEN
Message.Error("Imposible de borrar el usuario")
ELSE
modulo.rs = Modulo.cn.Exec("select * from clave")
mostrar()
END IF
CASE 2
Message.Info("Usuario no eliminado")
CASE 3
END SELECT
limpiar()
TextBox3.SetFocus
END
PUBLIC SUB Button5_Click()
DIM ban AS Integer
Modulo.rs = Modulo.cn.Exec("select * from clave")
DO WHILE Modulo.rs.Available
IF modulo.rs["idclave"] = Trim(UCase(TextBox3.Text)) THEN
Modulo.rs = Modulo.cn.Exec("select * from clave where idclave = '" & Trim(UCase(TextBox3.Text)) & "'")
TextBox1.Text = Modulo.rs["usuario"]
TextBox2.Text = Modulo.rs["contrasenia"]
'ValueBox1.Value = Modulo.rs["cantidad"]
ban = 1
ENDIF
MODULO.rs.MoveNext()
LOOP
IF ban = 0 THEN
Message.Error("Registro Invalido")
limpiar()
END IF
END
PUBLIC SUB TextBox3_KeyPress()
IF Key.Code = 65293 THEN
IF TextBox3.Text = "" THEN
Message.Info("Ingrese Nombre de Usuario...")
TextBox3.SetFocus
ELSE
TextBox1.SetFocus
ENDIF
ENDIF
END
PUBLIC SUB menu_Click()
ME.Close
END
PUBLIC SUB Button3_Click()
TRY Modulo.cn.Exec("update clave set idclave='" & Trim(UCase(TextBox3.Text)) & "',usuario='" & Trim(UCase(TextBox1.Text)) & "',contrasenia='" & Trim(UCase(TextBox2.Text)) & "' where=textbox3.text ")
IF ERROR THEN
Message.Error("Imposible actualizar el registro")
ELSE
Message.Info("Registro actualizado")
END IF
mostrar()
'LIMPIAR
END