Ошибка при добавлении записи в БД

Imports System.Data.OleDb
Public Class Form1
    Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & My.Application.Info.DirectoryPath & "\Справ.accdb")
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim conn As New OleDbConnection
        conn.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & My.Application.Info.DirectoryPath & "\Справ.accdb")
        Dim c As New OleDbCommand
        c.Connection = conn
        c.CommandText = "SELECT * FROM Таблица1"
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter(c)
        da.Fill(ds, "Таблица1")
        Grid1.DataSource = ds
        Grid1.DataMember = "Таблица1"
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim c As New OleDbCommand
        Form2.ShowDialog()
        Dim s1, s2, s3 As String
        Dim r As DialogResult
        s1 = Form2.TextBox1.Text
        s2 = Form2.TextBox2.Text
        s3 = Form2.TextBox3.Text
        r = Windows.Forms.DialogResult.OK
        Form2.Close()
        If r <> Windows.Forms.DialogResult.OK Then
            Exit Sub
        End If
        c.Connection = conn
        c.CommandText = ("INSERT INTO ([Таблица1] ([Имя], [Фамилия], [Телефон]) VALUES ('" & s1 & "', '" & s2 & "', '" & s3 & "'")
        conn.Open()
        c.ExecuteNonQuery()
        conn.Close()
        RefreshGrid()
    End Sub
Private Sub RefreshGrid()
        Dim c As New OleDbCommand
        c.Connection = conn
        c.CommandText = "SELECT * FROM Таблица1"
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter(c)
        da.Fill(ds, "Таблица1")
        Grid1.DataSource = ds
        Grid1.DataMember = "Таблица1"
    End Sub