Master vb 6.0 saya perlu bantuan. ada 2 pertanyaan . yang pertama bagaimana cara membuat script login multi user dengan koneksi adodc dan database mysql.

jadi di mdi form terdapat 4 menu.
tabel user. dengan atribut id_user, username, password, level.
menu data barang (level1)
menu data user (level1)
menu data distributor(level1)
menu lihat data level(1)
menu lihat data level(2) 'diperuntukan untuk staf

'koneksi di form login
Private Sub Form_Load()
Adodc1.ConnectionString = "DSN=barangVB"
Adodc1.RecordSource = "user"
Adodc1.Refresh
Adodc1.Recordset.Sort = "id_user"

End Sub

kedua... bagaimana Mencetak record hasil filter dengan kriteria combobox kedalam data report VB6.0?
saya punya satu form. didalam nya ada satu datagrid, satu tombol cetak, dan combo box untuk menampilkan data sesuai dengan tahun tertentu.
ketika saya memilih menampilkan data berdasarkan tahun 2013 lewat combo box. maka seluruh data tahun 2013 akan di tampilkan di datagrid.pertanyaan saya bagaimanakah agar isi data hasil filter tersebut dapat dicetak ke data report ? saya koneksi menggunakan adodc dan database mysql. dan saya sertakan ini script saya yang hanya dapat mencetak satu record saja dari hasil filter.

Private Sub Command1_Click()
If DataEnvironment1.rsCommand1.State = 1 Then
DataEnvironment1.rsCommand1.Close
End If
DataEnvironment1.rsCommand1.Open
DataEnvironment1.rsCommand1.Requery
DataEnvironment1.rsCommand1.Filter = " id_barang= '" & Adodc1.Recordset(0) & "'"
'id_barang adalah nama fileds nya
DataReport1.Show
End Sub