SVP aidez moi jexecute ce code mais il me donne une erreur je ne comprend pas pourquoi
jai besoin vraiment de laide c urgent 
Dim
ds AsNew DataSet
Try
If Me.NumDossier.Text <> ""AndMe.NumLot.Text <> ""Then
Dim da AsNew SqlDataAdapter("select DCD_DCD_numero,Detat_libelle,SVD_V_USER from d_suivi_dos_tc sv,p_etat_dos_tc et where sv.Detat_code=et.Detat_code and DCD_DCD_numero=" & Me.NumDossier.Text & "and LOT_LOT_V_NUMERO='" & Me.NumLot.Text & "'", con)
da.Fill(ds, "d_suivi_dos_tc")
End If Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.DataGrid1.DataSource = ds.Tables("d_suivi_dos_tc")
Merci d'avance