依照书上例子进行，弄了个小程序，但是和数据库连接的时候哦出现问题，弄了好久，都解决不了，求高手解答。附程序和数据库。

啥问题

你的启动窗体中没有定义ADO的连接。
如果启动窗体是frmadduser
Private Sub Form_Load()
    Combo1.AddItem "system"
    Combo1.AddItem "guest"
   
    Dim connectionstring As String
    connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
                       "data source=book.mdb"
    conn.Open connectionstring
End Sub