Public Cnx As New Odbc.OdbcConnection

    Public Function Connection_Odbc(ByVal sSdd As String, ByVal sUid As String, ByVal sPwd As String) As Boolean
        Try
            Dim b As Boolean = False
            Cnx.ConnectionString = "DSN=" & sSdd & ";UID=" & sUid & ";PWD=" & sPwd & ";"
            Cnx.Open()
            b = True
            Return b
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

Et un "S'il vous plait", ca t'arracherait la G _ _ _ _ E ??????

il y a d'autre maniére de poser la question, la on dirait vraiment que tu prends les programmeur d'ici pour tes chiens...

i'm sorry! ça ne se reproduira +.
a+ les gars

Bon allez ... la voila ta traduction en VB6 Public Function Connection_Odbc(ByVal sSdd As String, ByVal sUid As String, ByVal sPwd As String) As Boolean On Error Goto ErrHdlr Cnx.ConnectionString = "DSN=" & sSdd & ";UID=" & sUid & ";PWD=" & sPwd & ";" Cnx.Open() Connection_Odbc = True Exit Function ErrHdlr: MsgBox(Err.Description) End Function J'ai aussi supprimé la variable b qui ne sert à rien.