I nuvarande tillstånd har programmet en viss basfärdighet.
Detta borde vi nu kunna 
(Blått betyder sådant ni kan ändra bara ni ändrar
på alla ställen. 
Rött betyder sådant såm ni troligtvis måste ändra
för varje nytt program) 
<ol>
<li>Öppna databaser med hjälp av ADO 
För en mångsidig (men inte hastighetsoptimerd) användning gäller följande </li>
<ul>
<li>Sätt följande i General Declarations: 
Private WithEvents Conn As ADODB.Connection 
Private WithEvents RS As ADODB.Recordset </li>
<li>Sätt följande i Form_Load (eller annan lämplig plats) 
 Dim strSQL As String 
 Set Conn = New ADODB.Connection 
 Set RS = New ADODB.Recordset 
 
 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\adodemo.mdb" 
 strSQL = "SELECT * FROM ado" 
 RS.Open strSQL, Conn, adOpenKeyset, adLockOptimistic </li>
<li>Sätt följande i Form_Unload 
 RS.Close 
 Conn.Close 
 Set RS = Nothing 
 Set Conn = Nothing </li>
</ul>
<li>Koppla TextBoxar till datatabellen </li>
<ul>
<li>Detta fixas med följande konstruktion (upprepa för varje fält) 
Set TextBoxensNamn.DataSource = RecordsetNamn 
TextBoxensNamn.DataField = "FältNamn" </li>
</ul>
<li>Bläddra </li>
<ul>
<li>Följande standarlösningar finns det: (finns knepigare lösningar men dessa får duga för tillfället) 
Första: 
 RecordsetNamn.MoveFirst 
Föregående: 
RecordsetNamn.MovePrevious 
If RecordsetNamn.BOF Then 
 RecordsetNamn.MoveFirst 
End If 
Nästa: 
RecordsetNamn.MoveNext 
If RecordsetNamn.EOF Then 
 RecordsetNamn.MoveLast 
End If 
Sista: 
RecordsetNamn.MoveLast 
</li>
</ul>
<li>Validera data </li>
<ul>
<li>Görs genom att använda Validate händelsen för en kontroll 
Om värdet som valideras inte duger så sätter man Cancel = True i proceduren</li> 
</ul>
<li>Använda s.k. Control Arrays </li>
<ul>
<li>Har väl ingenting med ADO att göra men medge att det är bättre att ha en bläddringsprocedur än fyra 
</li>
</ul>
</ol>