Error while connection to database and filling source dataset - sql

Question

so I'm getting this error:
The main thing is that sometimes it might run smooth and get no errors some others i get the errors that what i don't get. Also, SQL wise the code is running there is no problem with that. I don't know what might be wrong any ideas would be helpful thanks in advance. Also the line I get the error is Adapter.Fill(SourceDataSet).
Try
'Δήλωση Μεταβλητών
strConnection = String.Format("Provider=SQLOLEDB;Data Source={0};Initial Catalog={1};User ID={2};Password={3};",
strServer, strDataBase, strUserName, strPassword)
' Create a connection object.
Dim Connection As New OleDbConnection(strConnection)
' Create a data adapter.
Dim Adapter As New OleDbDataAdapter("USE EMBONILO_B
SELECT M.CODE AS ΚΩΔΙΚΟΣ_ΕΙΔΟΥΣ , M.DESCRIPTION AS ΠΕΡΙΓΡΑΦΗ_ΕΙΔΟΥΣ , M.SUBCODE1 AS ΚΩΔΙΚΟΣ_ΚΑΤΑΣKEYAΣΤΗ , MF.DESCR AS BRAND , TS.DESCR AS ΣΑΙΖΟΝ, IG.DESCR AS ΟΜΑΔΑ_ΕΙΔΟΥΣ , TF.DESCR AS ΦΥΛΟ , IG2.DESCR AS ΤΥΠΟΣ ,
SC.DESCR AS SPORTSCODE , M.SUBCODE2 AS ΠΕΡΙΓΡ_ΧΡΩΜΑΤΟΣ , M.COMPOSITION AS ΣΥΝΘΕΣΗ , MS.DESCR AS ΜΟΝ_ΜΕΤΡ , VAT.VATDESCR AS ΦΠΑ , SL.DESCR AS ΜΕΓΕΘΟΛΟΓΙΟ , IC.COLORDESCR AS ΚΩΔ_ΧΡΩΜ ,
M.DESCR2 AS ΕΝΑΛ_ΠΕΡΙΓΡ , M.WHSPRICE AS ΧΟΝΔΡΙΚΗ , M.RTLPRICE AS ΛΙΑΝΙΚΗ , M.FLDSTRING1 AS ΠΧ_ΦΥΛΟ , M.FLDSTRING2 AS ΠΧ_ORIGIN_COUNTRY , M.FLDSTRING3 AS ΠΧ_ΣΑΙΖΟΝ , M.FLDSTRING5 AS ΠΧ_ΕΤΟΣ ,
M.FLDSTRING4 AS ΠΧ_ΚΑΤΗΓΟΡΙΑ , M.FLDSTRING6 AS ΠΧ_ΧΡΩΜΑ
FROM MATERIAL M
INNER JOIN MANUFACTURER MF ON MF.CODEID = M.MNFID
INNER JOIN ITEMGROUP IG ON IG.CODEID = M.IGPID
INNER JOIN IP_TBLFILLO TF ON TF.CODEID=M.IP_EPS_MODEL
INNER JOIN ITEMGROUP2 IG2 ON IG2.CODEID=M.IGSID
INNER JOIN INF_SPORTSCODE SC ON SC.CODEID=M.INF_SPORTSCODE
INNER JOIN MESUNIT MS ON MS.CODEID=M.MU1
INNER JOIN VATCATEGORY VAT ON VAT.CODEID=M.VTCID
INNER JOIN SIZELIST SL ON SL.CODEID=M.MAINSZLID
INNER JOIN ITECOLOR IC ON IC.ITEID=M.ID
INNER JOIN ITEMCATEGORY TS ON TS.CODEID=M.ICTID
WHERE M.CODE LIKE '" & txtSearch.Text & "%'", Connection)
' Create and fill a dataset.
Dim SourceDataSet As New DataSet()
Adapter.Fill(SourceDataSet)
' Specify the data source for the grid control.
grdMain.DataSource = SourceDataSet.Tables(0)
If GridView2.RowCount = 0 Then
MsgBox("Δεν υπάρχει τέτοιος κωδικός.", vbOKOnly)
grdMain.DataSource = Nothing
End If
Connection.Close()
Catch oleDbExceptionParameter As OleDbException
DevExpress.XtraEditors.XtraMessageBox.Show(oleDbExceptionParameter.StackTrace.ToString, Application.ProductName,
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch ex As Exception
DevExpress.XtraEditors.XtraMessageBox.Show(ex.Message, My.Application.Info.Title)
End Try