Private Sub cmdLaggTill_Click()
ConnectDB
'Rs.Open "SELECT * FROM Tabell", Conn, adOpenKeyset, adLockOptimistic
Rs.Open "Tabell", Conn, adOpenKeyset, adLockOptimistic

Rs.AddNew
Rs("Namn") = txtNamn.Text
Rs.Update

Rs.Close
Conn.Close
End Sub