Option Explicit
 
    Dim rs As ADODB.Recordset
    Dim cn As ADODB.Connection
 
    Const strConn As String = "Driver={Microsoft Text Driver (*.txt;" & _
      "*.csv)};DefaultDir=d:\"
    Const strPfad As String = "d:\"
    Const MasterDatei As String = "datenbank.txt"
 
    Const KonvertDatei As String = "datenbank.csv"
 
Private Sub Form_Load()
 
    Dim strUsername As String
    Dim strName As String
    Dim strObjekt As String
    Dim strStraße As String
    Dim strOrt As String
    Dim strRegTyp As String
    Dim strBand As String
    Dim strBemerkung As String
 
   strUsername = Environ("Username")
 
    Call DateiKonvertieren
 
    Set cn = New ADODB.Connection
    cn.CursorLocation = adUseClient
 
    cn.Open strConn
 
    Set rs = cn.Execute("Select * from " & KonvertDatei & " WHERE Name12='" & _
      strUsername & "'")
 
strName = rs.Fields("Name22")
'strObjekt = rs.Fields("Objekt2")
'strStraße = rs.Fields("Strasse2")
'strOrt = rs.Fields("Ort2")
'strRegTyp = rs.Fields("RegTyp2")
'strBand = rs.Fields("Band2")
'strBemerkung = rs.Fields("Bemerkung")
 
 
MsgBox ("Name: " & strName) 'etc. für die anderen Felder
 
 
  End Sub
 
Private Sub DateiKonvertieren()
 
Dim ff As Integer
Dim Inhalt As String
 
ff = FreeFile
 
Open strPfad & MasterDatei For Binary As ff
Inhalt = Space$(LOF(ff))
Get #ff, , Inhalt
Close ff
 
Inhalt = Replace(Inhalt, "#", ";")
 
Open strPfad & KonvertDatei For Output As ff
Print #ff, Inhalt
Close ff
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Set rs = Nothing
Set cn = Nothing
End Sub

EALA FREYA FRESENA