Public Function AddDSN(ByVal sDSNName As String, _
  ByVal sPath As String, _
  Optional ByVal sDescription As String = "", _
  Optional ByVal sDriverName As String = "Microsoft Access Driver (*.mdb)", _
  Optional ByVal sUser As String = "", _
  Optional ByVal sPwd As String = "", _
  Optional ByVal bSystemDSN As Boolean = False) As Boolean
 
  Dim nResult As Long
  Dim nRequest As Long
  Dim sAttr As String
 
  ' Benutzer-DSN oder System-DSN?
  nRequest = IIf(bSystemDSN, ODBC_ADD_SYS_DSN, ODBC_ADD_DSN)
 
  If InStr(1, sDriverName, "SQL Server", vbTextCompare) > 0 Then
    ' SQL-Server
    Dim sServer As String
 
    ' Prüfen, ob Serverpfad angegeben...
    If InStr(sPath, "\") > 0 Then
      sServer = Left$(sPath, InStr(sPath, "\") - 1)
      sPath = Mid$(sPath, InStr(sPath, "\") + 1)
    Else
      ' Falls nicht, lokalen SQL-Server verwenden
      sServer = "(local)"
    End If
 
    sAttr = "DSN=" + sDSNName & Chr$(0) & _
      "SERVER=" & sServer & Chr$(0) & _
      "DATABASE=" & sPath & Chr$(0) & _
      "TRUSTED_CONNECTION=True" & Chr$(0) & _
      "DESCRIPTION=" + sDescription & Chr$(0)
  Else
    ' Verbindungs-Attribute
    sAttr = "DSN=" + sDSNName & Chr$(0) & _
      "DBQ=" + sPath & Chr$(0) & _
      "UID=" & sUser & Chr$(0) & _
      "PWD=" & sPwd & Chr$(0) & _
      "DESCRIPTION=" + sDescription & Chr$(0)
  End If
 
  ' DSN-Verbindung einrichten
  nResult = SQLConfigDataSource(0&, nRequest, sDriverName & Chr$(0), sAttr)
  AddDSN = (nResult = 1)
End Function

Styla1989@ VB6 Noob, helft mir ich helf euch ;) soweit ich kann, Counter-Strike Noob ebenso.....