Vb+Access数据库问题

今天想弄一个软件但我需要用数据库登陆进去。

所以想问问大家要怎么操作。

我想知道的是：

1. VB6.0怎么和Access数据库登陆帐号密码，

并且原先保存的用户名添加一个修改密码。

2. VB6.0怎么直接用代码登陆QQ方面的。

在Form1里面添加QQ用户登陆，实现跳转到Form2。

请大家把源代码打包好，发送  [email protected]

给写代码你。自己去编写那个数据库。。。。

Dim a As Integer
Dim str As String

Private Sub Command1_Click()
Data1.RecordSource = "select *from 用户  where  用户='" & Text1.Text & "'and 密码='" & Text2.Text & "'"
If Data1.Recordset.EOF Then
 MsgBox "无此人或密码错误！", , "错误提示"
 a = a + 1
 Text1.Text = ""
 Text2.Text = ""
 Data1.RecordSource = "用户"
 Data1.Refresh
Else
 Text1.Text = ""
 Text2.Text = ""
 Form1.Hide
 Form2.Show
End If
If a = 3 Then
  End
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
   str = App.Path
   If Right(str, 1) <> "\" Then
     str = str + "\"
   End If
Data1.DatabaseName = str + "QQ登陆.mdb"
Data1.RecordSource = "用户"
Data1.Refresh
End Sub

这个是data控件连接数据库的