aGroups = New OleDbDataAdapter("SELECT * FROM groups", dbConn)
        aGroups.Fill(tGroups)
        tGroups.Columns(0).AutoIncrement = True
        tGroups.Columns(0).AutoIncrementStep = 1
 
        aGroups.InsertCommand = New OleDbCommand("INSERT INTO groups (title," & _
          "info, address, phone, mobile, fax, mail, extinfo) VALUES(" & _
          "?,?,?,?,?,?,?,?)", dbConn)
        aGroups.InsertCommand.CommandType = CommandType.Text
        aGroups.InsertCommand.Parameters.Add("@title", OleDbType.VarChar, 128, _
          "title")
        aGroups.InsertCommand.Parameters.Add("@info", OleDbType.VarChar, 255, _
        "info")
        aGroups.InsertCommand.Parameters.Add("@address", OleDbType.VarChar, _
        255, "address")
        aGroups.InsertCommand.Parameters.Add("@phone", OleDbType.VarChar, 32, _
        "phone")
        aGroups.InsertCommand.Parameters.Add("@mobile", OleDbType.VarChar, 32, _
        "mobile")
        aGroups.InsertCommand.Parameters.Add("@fax", OleDbType.VarChar, 32, _
        "fax")
        aGroups.InsertCommand.Parameters.Add("@mail", OleDbType.VarChar, 64, _
        "mail")
        aGroups.InsertCommand.Parameters.Add("@extinfo", OleDbType.LongVarChar, _
        512, "extinfo")