Private Sub Command1_Click()

Set db = New ADODB.Connection

Set rs = New ADODB.Recordset

db.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" + App.Path + "/finance.mdb"

rs.Open "select * from user_info", db

rs.MoveFirst

If Trim(Text1.Text) = "" Then

MsgBox "請輸入一個用戶名來進行管理", vbOKOnly + vbInformation, "注意"

Else

rs.Find "u_name ='" & Trim(Text1.Text) & "'"

If rs.Eof Then

MsgBox "當前沒有這個用戶，你需要增加這個用戶嗎？", vbYesNo + vbInformation, "注意"

End If

End If

End Sub

If Trim(Text1.Text) = "" Then

MsgBox "請輸入一個用戶名來進行管理", vbOKOnly + vbInformation, "注意"

rs.Open "select * from user_info where u_name='" & Trim(Text1.Text) & "'", db

If rs.Eof Then

MsgBox "當前沒有這個用戶，你需要增加這個用戶嗎？", vbYesNo + vbInformation, "注意"

End If