Function ConnectDB(ByVal dbfFolder As String) As OleDb.OleDbConnection
        Try
            Dim db_con As New OleDb.OleDbConnection
            db_con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                                    & "Data Source=" & dbfFolder & ";" _
                                    & "Extended Properties=dBASE IV;User" & _
                                    "ID=Admin;Password="
 
            db_con.Open()
            Return db_con
        Catch ex As Exception
            MsgBox("Fehler in ConnectDB: " & ex.Message)
            Return Nothing
        End Try
    End Function
 
    Function getData(ByVal db_con As OleDb.OleDbConnection, ByVal dbfFileName _
      As String) As DataTable
        Try
            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = db_con
 
            Dim oAdapt As New OleDb.OleDbDataAdapter(cmd)
            cmd.CommandText = "SELECT * FROM " & dbfFileName
 
            Dim DT As New DataTable
            oAdapt.Fill(DT)
 
            cmd.CommandText = "INSERT INTO " & dbfFileName & " (Total) VALUES(" & _
              "44444)"
 
            Return DT
 
        Catch ex As Exception
            MsgBox("Fehler in getData(): " & ex.Message)
        End Try
    End Function
 
    Function setData(ByVal db_con As OleDb.OleDbConnection, ByVal dbfFileName _
      As String) As Boolean
        Try
            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = db_con
 
            cmd.CommandText = "INSERT INTO " & dbfFileName & " (Total) VALUES(" & _
              "44444)"
            if cmd.ExecuteNonQuery() > 0 then 	    '------> Gibt Fehler: 
            ' "Operation muß eine aktualisierbare Abfrage verwenden!"
		Return True
	    else
		Return False
	    end if
 
        Catch ex As Exception
            MsgBox("Fehler in setData(): " & ex.Message)
        End Try
    End Function
 
    Function addField(ByVal db_con As OleDb.OleDbConnection, ByVal dbfFileName _
      As String, ByVal Fieldname As String) As Boolean
        Try
            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = db_con
 
            cmd.CommandText = "ALTER TABLE " & dbfFileName & " ADD " & _
              Fieldname  & " VARCHAR(255) "
            cmd.ExecuteNonQuery()
	    '------> Gibt Fehler: "Die Operation wird für eine Tabelle mit Daten" & _
  "nicht unterstützt!"
 
            Return True
 
        Catch ex As Exception
            MsgBox("Fehler in addField(): " & ex.Message)
	    return False
        End Try
    End Function