Dim cDSN    As String
Dim cDB     As String
Dim cUser   As String
Dim cPW     As String
 
 
Private Sub Command1_Click()
    Dim i As Integer
    cDSN = "DSN"
    cDB = GetDBName(cDSN)
    cUser = "sa"
    cPW = ""
    Dim cSelection As String
    Set crApp = New CRAXDDRT.Application
    Set Report = crApp.OpenReport("C:\MeinBericht1.rpt")
    With Report
        For i = 1 To .Database.Tables.Count
            .Database.Tables.Item(i).SetLogOnInfo cDSN, cDB, cUser, cPW
            .Database.Tables.Item(i).Location = .Database.Tables.Item( _
              i).Location
        Next i
        .DiscardSavedData
    End With
    frmReport9.Show
    Set Report = Nothing
End Sub
 
 
Function GetDBName(s As String) As String
    GetDBName = "Kein DBName"
    ....
    ....
    ....
End Function

Gru? Carsten

Ehrlich w?hrt am L?ngsten (sacht man...)