Qualcuno sa dirmi cosa c'è di sbagliato non mi da lcun errore ma non scrive sul database

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Inserire qui il codice utente necessario per inizializzare la pagina
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"User ID=Admin;" & _
"Data Source=C:\percorso\db.mdb"

Dim OleConnection As New OleDbConnection(ConnectionString)
OleConnection.Open()

Dim Query As String = "Select * from NomeTabella"
Dim OleCommand As New OleDbCommand(Query, OleConnection)

Dim myReader As OleDbDataReader = OleCommand.ExecuteReader()

While myReader.Read()
Response.Write(myReader.GetString(0) + ", " + myReader.GetString(1))
End While

myReader.Close()
OleConnection.Close()


End Sub

Sub AddRecords()

Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"User ID=Admin;" & _
"Data Source=C:\percorso\db.mdb"

Dim OleConnection As New OleDbConnection(ConnectionString)
OleConnection.Open()

Dim Sql As String
Sql = "INSERT INTO Clienti ("
Sql = Sql & "Cliente) VALUES ("
Sql = Sql & Chr(34) & TextBox.Text & Chr(34) & ","

Dim OleCommand As New OleDbCommand(Sql, OleConnection)

Try
OleCommand.ExecuteNonQuery()
Catch e As Exception
Console.WriteLine(e.Message)
End Try

Console.WriteLine("Record Added")

End Sub


Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click

Call AddRecords()

End Sub