Dim chaine As String chaine = My.Settings.ISSBConnectionString Dim connection As New System.Data.OleDb.OleDbConnection() connection.ConnectionString = chaine Dim iden_sexe As String Try connection.Open() 'déclaration d'un nouveau dataset Dim dat As New System.Data.DataSet 'requete de selection des pavillons Dim query As String = "SELECT client.nom_client, client.adresse, client.tel_fix, client.cellulaire, client.email, client.sexe, client.age, client.instruction, client.sit_mat, client.bank, client.profession, client.sec_act, client.nb_compt, client.ancien, client.cod_client FROM(Client) WHERE (((client.cod_client)='" & cod_client.Text & "'));" Dim adapter As New System.Data.OleDb.OleDbDataAdapter(query, connection) adapter.Fill(dat, "client") 'chargement du datagrid de pavillon nom_client.Text = dat.Tables("client").Rows(0).Item("nom_client") adress.Text = dat.Tables("client").Rows(0).Item("adresse") tel.Text = dat.Tables("client").Rows(0).Item("tel_fix") cellulaire.Text = dat.Tables("client").Rows(0).Item("cellulaire") email.Text = dat.Tables("client").Rows(0).Item("email") iden_sexe = dat.Tables("client").Rows(0).Item("sexe") If iden_sexe = "masculin" Then macul.Checked = True Else féminin.Checked = True End If age.Text = dat.Tables("client").Rows(0).Item("age") instruction.Text = dat.Tables("client").Rows(0).Item("instruction") sit_mat.Text = dat.Tables("client").Rows(0).Item("sit_mat") bank.Text = dat.Tables("client").Rows(0).Item("bank") profess.Text = dat.Tables("client").Rows(0).Item("profession") sec_act.Text = dat.Tables("client").Rows(0).Item("sec_act") nombre_com.Text = dat.Tables("client").Rows(0).Item("nb_compt") ancien.Text = dat.Tables("client").Rows(0).Item("ancien") 'liberer les ressources du dataset dat.Dispose() 'fermer et libérer la connection connection.Close() connection.Dispose() Catch ex As Exception MessageBox.Show(ex.Message) End Try