Saving data from vb.net to access database?

[Emmy Ojima-ojo]

I have tried all i could but my code is not giving me my desired result. can some one pleas help me. Thanks

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Collections
Public Class Form1
Shared OleDbConnection As System.Data.OleDb.OleDbConnection
Shared AddressBookDataAdapter As System.Data.OleDb.OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
connect()
display()


Dim FirstName As String = "New Name"
Dim ID As String = "1"


Dim OleDbUpdateCommand As System.Data.OleDb.OleDbCommand
OleDbUpdateCommand = New System.Data.OleDb.OleDbCommand

OleDbUpdateCommand.CommandText = _
"Insert into MyTable (ID, Name, Phone) values" & _
"(1,'Joe','568902')"


OleDbUpdateCommand.Connection = OleDbConnection

AddressBookDataAdapter = New OleDbDataAdapter

AddressBookDataAdapter.UpdateCommand = OleDbUpdateCommand


AddressBookDataAdapter.UpdateCommand.ExecuteNonQuery()


display()
Disconnect()

End Sub

Sub connect()
OleDbConnection = New System.Data.OleDb.OleDbConnection()
OleDbConnection.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=MyDatabase.accdb;Persist Security Info=True"

Try
OleDbConnection.Open()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub


Sub display()
Dim OleDbSelectCommand As System.Data.OleDb.OleDbCommand
OleDbSelectCommand = New System.Data.OleDb.OleDbCommand()
OleDbSelectCommand.CommandText = "SELECT ID, Name, Phone FROM myTable"
OleDbSelectCommand.Connection = OleDbConnection

AddressBookDataAdapter = New System.Data.OleDb.OleDbDataAdapter()

AddressBookDataAdapter.SelectCommand = OleDbSelectCommand


Dim AddressBookDataSet As System.Data.DataSet
AddressBookDataSet = New System.Data.DataSet()
CType(AddressBookDataSet, System.ComponentModel.ISupportInitialize).BeginInit()

AddressBookDataAdapter.Fill(AddressBookDataSet)


Dim dataTable As DataTable = AddressBookDataSet.Tables(0)

' ensure dataTable not empty
If dataTable.Rows.Count <> 0 Then
Dim recordNumber As Integer = Convert.ToInt32(dataTable.Rows(0)(0))

Console.Write(recordNumber.ToString & " ")
Console.Write(Convert.ToString(dataTable.Rows(0)(1)) & " ")
Console.Write(Convert.ToString(dataTable.Rows(0)(2)) & " ")

' display not-found message
Else
Console.WriteLine("No record found")
End If
Console.WriteLine()
End Sub

Sub Disconnect()
Try
OleDbConnection.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
display()
End Sub
End Class