Insert Statement Error

[Tackey]

Please help me with my database connection. It says that I have an error with my Insert Statement.

Imports System.Data.OleDb

Public Class Form1

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim connection As OleDb.OleDbConnection

        Dim mydb, mystr As String
        Dim dateFiled = Date.Today
        Dim user = txtUser.Text
        Dim prob = txtProblem.Text
        Dim isolation = txtIsolation.Text
        Dim support = txtSupported.Text

        mystr = ("Provider=Microsoft.JET.OLEDB.4.0;" & _
                     "Data Source=C:\Users\hayasaka\Documents\CSIS\CSIS.mdb")
        connection = New OleDb.OleDbConnection(mystr)

        connection.Open()

        mydb = "INSERT INTO AddReports (date_Filed,filedUser,reported_Problem,isolation,support_By) VALUES (dateFiled,user,prob,isolation,support)"

        Dim run = New OleDb.OleDbCommand

        Try
            run = New OleDbCommand(mydb, connection)
            run.ExecuteNonQuery()
            MsgBox("Connection opened")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Oledb Error")
        End Try
    End Sub
End Class

[QVeen72]

Hi,

You have to use parameters or build SQL Statement accordingly:

connection.Open()
mystr = "INSERT INTO AddReports " _
    & " (date_Filed,filedUser,reported_Problem,isolation, " _
    & " support_By) VALUES (#" & dateFiled & "#,'" & user _
    & "','" & prob & "','" & isolation & "','" & support & "')"            
Dim command As New OleDbCommand(mystr, connection)
command.ExecuteNonQuery()

Regards
Veena