Keskustelu: Ohjelmointikysymykset: VB.NET ja ADO

'(General)(Declarations)
Private connPalvelin As ADODB.Connection
Private rsHenkilö As ADODB.Recordset
Private Sub Form_load()
    Set connPalvelin = New ADODB.Connection
    With connPalvelin
        .ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Tietokanta.mdb;"
        .CursorLocation = adUseClient
        .Open
    End With

    Set rsHenkilö = New ADODB.Recordset
    With rsHenkilö
        .Source = SELECT * FROM Henkilöt ;"
        .ActiveConnection = connPalvelin
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open
    End With