Public Class frmStart
    Private mXmlFilePath As String = "\dtest.xml"
 
    Private Sub frmStart_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles _MyBase.Load
 
If My.Computer.FileSystem.FileExists(mXmlFilePath) = True Then _
  DsEinkauf.ReadXml(mXmlFilePath)
    End Sub
End Class

  If System.IO.File.Exists(mXmlFilePath) = True Then DsEinkauf.ReadXml( _
    mXmlFilePath)