Как изменить и удалить строки из БД

Dim fileInfo As New FileInfo(CurDir() & "\polsovat.mdb") 
        Dim pathBD As String 
        pathBD = CurDir() & "\polsovat.mdb" 
        If fileInfo.Exists() Then 
            Me.start_thread() 
        Else 
            Dim cat As New ADOX.Catalog 
            Try 
                cat.Create("Provider=Microsoft.Jet." & 
                            "OLEDB.4.0;Data Source= " & pathBD) 
                'MessageBox.Show("База данных C:\NEW_bd.MDB успешно создана") 
            Catch ex As Exception 
                MessageBox.Show(ex.Message) 
                Me.Close() 
            End Try 
            Dim CONNECTION = New OleDbConnection("Provider=Microsoft." & 
                                             "Jet.OLEDB.4.0;Data Source=" & pathBD) 
            CONNECTION.Open() 
            Dim COMMAND As New OleDbCommand("CREATE TABLE [" & 
                                           "Пользователи] ([Фамилия] char(20), [Имя] ch" & 
                                           "ar(20), [Отчество] char(20), [Должность] char(20), [Пароль] char(20))", CONNECTION) 
            Try 
                COMMAND.ExecuteNonQuery() 
                'MessageBox.Show("Структура таблицы 'БД телефонов' записана в пустую БД") 
 
                CONNECTION.Close() 
                'Добавление записи... 
                'Dim COMMAND = New OleDbCommand("INSERT INTO [бд телефонов] (" & 
                '                           "Фио, [номер телефона]) VALUES ('Сергей-Х','521-61-41')") 
                'COMMAND.Connection = CONNECTION 
                'COMMAND.ExecuteNonQuery() 
                'MessageBox.Show("В таблицу добавлена запись") 
                'CONNECTION.Close() 
            Catch Ex As Runtime.InteropServices.COMException 
                MessageBox.Show(Ex.Message) 
                Me.Close() 
            Finally 
                cat = Nothing 
 
            End Try 
        End If

"Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=****; Data Source=база.mdb")

Dim BD As ADOX.Catalog = New ADOX.Catalog()
            BD.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Exp\Abra.mdb;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=password")