如何 用VB设计一个文本框和一个按钮`若文本框中的内容为123则连入ACCESS数据库MYSELF 若不是则出现相应提

我好久没弄了，都忘了，你查下书吧，应该不难~~~~

if(文本框的值=="123")
begin
连接数据库
end
else
begin
提示连接错误
end

private sub Command1_click()
if text1.text="123" then
msgbox "连接Access数据库"
else
msgbox "输入错误"
end if
end sub

你要添加一个datagrid ,和ado空件 我连接的是我电脑上的一张表,你改一下就行了
我试过了,可以用的
Dim cn As ADODB.Connection
Public rs As ADODB.Recordset
Private Sub Command1_click()
If Text1.Text = "123" Then
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\图书管理系统\db1.mdb;Persist Security Info=False"
If cn.State = adStateClosed Then cn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockBatchOptimistic
' If Rs.State = adStateClosed Then Rs.Open "SELECT 图书表.书籍