Option Explicit
 
Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal _
  hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal _
  lpszAttributes As String) As Long
 
Private Const ODBC_ADD_SYS_DSN = 4
 
Public Function addDSN(DriverName As String, DSNName As String, DataBasesName _
  As String, Description As String)
    Dim Added As Byte
 
    Added = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, DriverName + vbNullChar, _
      "DSN=" + DSNName + vbNullChar + "Uid=Admin" + vbNullChar + "pwd=" + _
      vbNullChar + "DBQ=" + DataBasesName + vbNullChar + "Description=" + _
      Description + vbNullChar)
 
    If Added = 0 Then
        MsgBox "DSN konnte nicht hinzugefügt werden !", vbOKOnly, "ODBC Error"
    ElseIf Added = 1 Then
        MsgBox "DSN wurde erfolgreich hinzugefügt !", vbOKOnly, "ODBC"
    End If
End Function
 
Private Sub Command1_Click()
    Call addDSN("Microsoft Access-Treiber (*.mdb)", "myDSN", "D:\Test.mdb", _
      "myDescription")
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1