Sub lisamine3()
  Dim cn As New Connection
  Dim cm As New Command
  Dim lause As String
  cn.Open "yhendus1"
  uenimi = InputBox("Palun eesnimi")
  upnimi = InputBox("Palun perekonnanimi")
  lause = "INSERT INTO inimesed (eesnimi, perekonnanimi) " & _
    "VALUES ('" & uenimi & "', '" & upnimi & "')"
  MsgBox lause
  cn.Execute lause
  cn.Close
End Sub