Public Shared Function Insert(ByVal INSERTString As String) As Long
        Dim cmd As OleDb.OleDbCommand = con.CreateCommand
 
        cmd.CommandText = INSERTString
        cmd.ExecuteNonQuery()
    End Function 'stark vereinfacht