Sub test1()
  MsgBox "tere"
End Sub

Sub test2()
  Dim cn As New ADODB.Connection
  cn.Open ("DSN=kool1")
  cn.Execute ("CREATE TABLE inimesed(eesnimi VARCHAR(20), perenimi VARCHAR(20))")
  cn.Close
End Sub

Sub test3()
  Dim cn As New ADODB.Connection
  cn.Open ("DSN=kool1")
  cn.Execute ("INSERT INTO inimesed VALUES ('Juku', 'Juurikas')")
  cn.Close
End Sub

Sub test4()
  Dim cn As New ADODB.Connection
  Dim rs As ADODB.Recordset
  cn.Open ("DSN=kool1")
  Set rs = cn.Execute("select eesnimi from inimesed")
  While Not rs.EOF
    MsgBox rs("eesnimi")
    rs.MoveNext
  Wend
  cn.Close
End Sub