Problema ao gravar no banco de dados

Estou desenvolvendo uma agenda em vb.net mas estou com problema na inserção dos dados.

Por enquanto pra testes, estou gravando numa só coluna. O código:

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim sql As String Dim conn As OleDbConnection Dim cmd As OleDbCommand

 sql = "INSERT INTO agenda(dataagenda)"
 sql = sql & " values ('" & TextBox1.Text & "')"
 conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Users\Usuário\Documents\Visual Studio 2012\Projects\WebApplication1\WebApplication1\bin\agenda.mdb")

 conn.Open()
 cmd = New OleDbCommand(sql, conn)
 Try
 cmd.ExecuteNonQuery()
 MsgBox("Cadastro realizado com sucesso.")
 Catch ex As Exception
 MsgBox("erro ao cadastrar.")
 Finally
 conn.Close()
 End Try

 Response.Redirect("WebForm1.aspx")
 End Sub

O problema é que clico para gravar os dados e ele grava, mas quando checo no banco não tem nada na tabela, mas ele gera o código com os campos em branco. O que seria?

No bd também está como string.

Resoluções... Obrigado.