I made a few changes to your function. This is how I'd do it:
Function MAINquery(ByVal board As String, ByVal chassis As String, ByVal hDDType As String) As System.Data.DataSet
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Documents an"& _
"d Settings\Desktop\FinSample.mdb"
Dim dbConnection As New System.Data.OleDb.OleDbConnection(connectionString )
Dim queryString As String = "SELECT [System].* FROM [System] WHERE (([System].[Board] = ?) AND ([System]."& _
"[Chassis] = ?) AND ([System].[HDDType] = ?))"
Dim dbCommand As New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
dbCommand.Parameters.Add("@Board", System.Data.DbType.String).Value = board
dbCommand.Parameters.Add("@Chassis", System.Data.DbType.String).Value = chassis
dbCommand.Parameters.Add("@HDDType", System.Data.DbType.String).Value = hDDType
Dim dataAdapter As New System.Data.OleDb.OleDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As New System.Data.DataSet
dataAdapter.Fill(dataSet)
Return dataSet
End Function
-
Peter