Public dbConn As OleDbConnection = New OleDbConnection( _
      "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=vpms.mdb")
    Public tGroups As DataTable = New DataTable
    Public tTypes As DataTable = New DataTable
 
 
    Public Sub InitDB()
        aGroups = New OleDbDataAdapter("SELECT * FROM groups", dbConn)
        aGroups.Fill(tGroups)
        tGroups.Columns(0).AutoIncrement = True
        tGroups.Columns(0).AutoIncrementStep = 1

        If CheckInputs() Then
            Dim lItem As DataRow
            lItem = tGroups.NewRow
            lItem.Item("title") = txtTitle.Text
            lItem.Item("info") = txtInfo.Text
            lItem.Item("address") = txtAddress.Text
            lItem.Item("phone") = txtPhone.Text
            lItem.Item("mobile") = txtMobile.Text
            lItem.Item("fax") = txtFax.Text
            lItem.Item("mail") = txtMail.Text
            lItem.Item("extinfo") = txtExtInfo.Text
            tGroups.Rows.Add(lItem)
            tGroups.AcceptChanges()
            'aGroups.Update(tGroups)
            RaiseEvent GroupAdded()
        End If