Can someone tell me what is wrong with the code below? I am getting an error but I cannot see it. Thanks.

Imports System.Data
Imports System.Data.OleDb

Public Class frmReceived
    Inherits System.Windows.Forms.Form



Public Sub frmReceived_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Public Sub btnAddR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddR.Click
Dim myConnection As OleDbConnection = New _
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=G:\IDC\Received Dispensed Deleted.mdb;User Id=admin;Password=;")

        Dim myCommand As OleDbCommand = New OleDbCommand
        myCommand.Connection = myConnection
        myCommand.CommandText = "INSERT INTO Received" & _
        "(Received, Date)" & _
        "VALUES (@Received, @Date);"
        myCommand.Parameters.Add("@Received", TextBox1.Text)
        myCommand.Parameters.Add("@Date", Date.Now)
        myConnection.Open()
        Try
            myCommand.ExecuteNonQuery()
        Catch err As OleDbException
            MessageBox.Show(err.Message)
        Finally
            myConnection.Close()
        End Try

    End Sub
End Class