slt tous le monde

j'ai une chaine de connexion de vb.net a as/400

c'est mon chaine:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
  Dim oOleDbConnection As New OleDbConnection
            Dim sConnString As String = "Provider=IBMDA400;" & _
                                         "Password=*******;" & _
                                         "User ID=********;" & _
                                         "Data Source=10.10.10.1;"
            oOleDbConnection = New OleDb.OleDbConnection(sConnString)
            oOleDbConnection.Open()

le problème c'est que quand j'ai exécute ce code le message suivant s'affiche :




qu'un a une solution


merci