resmemo.txt

适合乡镇供电所使用电费处理系统v3 软件

Private cn As ADODB.Connection ' 我们仅仅使用一个活动的连接。


Private Sub Form_Load()
    Set cn = New ADODB.Connection
    Dim rs As New ADODB.Recordset
    With cn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
        "D:\ND2000\DATA\Eletricity.Mdb"
        .Open
    End With
    rs.Open "select * from 用户电费", cn, adOpenStatic, adLockOptimistic
    Set DataGrid1.DataSource = rs
End Sub

Image1.Picture = LoadResPicture(107, vbResBitmap)