Set Rs = oConn.Execute("Select PrjName from projekt order by PrjName")
 Do While Not Rs.EOF
  Me.Projektanwahl.AddItem Trim(CStr(Rs.Fields("PrjName")))
  Rs.MoveNext
 Loop
Set Rs = Nothing

Public Function dbOpenMySQL(DBPfad As String) As Boolean
 On Error GoTo ErrHandler
 If oConn Is Nothing Then
  Set oConn = New ADODB.Connection
  oConn.Provider = "MSDASQL"
  oConn.Mode = adModeReadWrite
  oConn.Open "Driver={Microsoft Visual FoxPro Driver}; SourceDB=" & DBPfad & _
    ";SourceType=DBF; Exclusive=No;BackgroundFetch=Yes;Collate=MACHINE;Null=Yes"
 End If
 dbOpenMySQL = True
 Exit Function
 
ErrHandler:
 dbOpenMySQL = False
End Function