'近日有本论坛网友问：DataGridView如何实现列标头带数据筛选功能，就象Excel高级筛选功能一样
'今晚正好闲着没事，加之以前也没用到过这个需求，所以就写了个模拟功能，供各位坛友酌情参考。
'VB.NET 2008 环境
'新建一个项目后，只需在Form1中拉一个DataGridView，一个ComboBox，然后将下面代码复制粘贴即可，其它什么也不用做

Public Class Form1
    Dim SelectedCol As Integer = 0, IsFindit As Boolean = True
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.ColumnCount = 6
        DataGridView1.Rows.Add(10)
        DataGridView1.AllowUserToAddRows = False
        For i As Integer = 0 To Me.DataGridView1.Columns.Count - 1
......................

Function sum%(b%())
 Dim i%
 For i = LBound(b) To UBound(b)
  If b(i) < 0 Then
     sum = sum + b(i)
  End If
 Next i
End Function
Private Sub Form_Click()
 Dim a%(10), s%, i%
 For i = 1 To 10
     a(i) = Int(Rnd * 100) - 50
......................

Private Sub Command5_Click()
Dim t As Double
Adodc1.Recordset.AddNew
Adodc1.Recordset.Update  问题出在这一句
t = Timer + 0.5
Do Until t < Timer
DoEvents
Loop
Adodc1.Refresh   
Adodc1.Recordset.MoveLast
End Sub

......................

Private Sub Command1_Click()
Dim x As Integer, y
For y = 1 To 2
If Option3.Value = True Then
x = x + 5
Else
x = x
End If
clear
wt & y
Nexty
End Sub
......................

Dim sql
Dim conn  As ADODB.Connection
Dim masr As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Administrator\Desktop\Database1.accdb;persist security info=false;"

sql = "Insert Into 收据 (日期,缴费单位,款项内容,收款方式,人民币大写,￥,收款单位盖章,收款人签章,备注)"
sql = sql & "Values('" & Format(日期.Value, "yyyy-MM-dd") & "','" & 款项内容.Value & "'," & 收款方式.Value & "','" & 收款方式.Value & "','" & 人民币大写.Value & "','" & Text22.Value & "','" & 收款单位盖章.Value & "','" & 收款人签章.Value & "','" & 备注.Value & "')"
conn.Execute sql



......................

Public Class Form1
    Dim t%
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        t = Val(InputBox("输入分钟")) * 60
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = t
        ProgressBar1.Value = t
        Timer1.Interval = 1000
        Timer1.Enabled = False

    End Sub

......................

求 系统登录的代码。。。
就用户名，密码，但是不止一个用户，怎样写代码啊？