VB访问Accsee数据库的问题

最近用VB开发系统，因为是初次接触所以有好多地方弄不明白，希望各位高手指教
 我做了一个 小型的养鸡场管理系统，在Accsee数据库下建了10个表，（如：用户信息表、供应商资料表等）现在我要实现控件和数据的链接，在用户登录窗体下，我输入如下信息
实现了对用户信息表数据的访问：
     Private Sub Command1_Click()
Dim SQL As String
Dim rs_yhdl As New ADODB.Recordset
If Trim(txtuser.Text) = "" Then            '判断输入的用户名是否为空
   MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
   txtuser.SetFocus
Else
   SQL = "select * from 用户信息表 where 用户名称='" & txtuser.Text & "'"
   rs_yhdl.Open SQL, conn, adOpenKeyset, adLockPessimistic
   If rs_yhdl.EOF = True Then
      MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
      txtuser.SetFocus
   Else                                  '检验密码是否正确
      If Trim(rs_yhdl.Fields(1)) = Trim(txtpwd.Text) Then
          userID = txtuser.Text
          userpow = rs_yhdl.Fields(2)
          rs_yhdl.Close
          Unload Me
        MDIForm1.Show
      Else
         MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
         txtpwd.SetFocus
      End If
   End If
End If
cnt = cnt + 1
If cnt = 3 Then
   Unload Me
End If
Exit Sub
End Sub
但是在别的窗体，（如另外有一个Form窗体叫供应商资料)需要访问别的表（供应商资料表）的时候却链接不上，
我想问一下如果不同的窗体访问同一个数据库的不同表，是不是应该设一个公共模块？代码该怎么编写？谢谢