Acutally MS Access will not support multiple line insert using a single statement where SQL Server does.
Still I can suggest you a workaround for this. Use the below function.
vb
Public Sub AccessInsert(ByVal strFieldName As String, ByVal strField As String, ByVal strTable As String, ByVal objConn As System.Data.OleDb.OleDbConnection)
Try
Dim strSQL As String
strSQL = "INSERT INTO [" & strTable & "] (" & strFieldName & ") VALUES ('" & strField & "')"
objConn.Open()
Dim objCmd As New System.Data.OleDb.OleDbCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
objConn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If objConn.State <> ConnectionState.Closed Then
objConn.Close()
End If
End Try
End Sub
And write multiple lines like this...
vb
AccessInsert("Field1", "3", "Table1", Sconn)
AccessInsert("Field1", "4", "Table1", Sconn)Or even you can use a loop here...
Hope this helps....