Function Uhrzeit_Von() As Date
 
        Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data " & _
                            "Source=C:\xx.mdb")
 
        cn.Open()
        Dim ergebnis As String
        With cn.CreateCommand()
            .CommandText = "Select Uhrzeit_Von FROM uhrzeiten"
            ergebnis = .ExecuteScalar.ToString
            uhrzeitvon = ergebnis
 
            .Dispose()
        End With
        cn.Close()
 
 
        Uhrzeit_Von = uhrzeitvon
    End Function