Module Main  Sub Main()
     Dim Conn As New OleDbConnection()
     Dim Adapter As New OleDbDataAdapter()
     Dim Kommand As New OleDbCommand("select * from produkt", Conn) 
    Dim ds As New DataSet()
       try       
          Conn.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
            "Source= C:\Eigene Dateien\ebay\ebay.mdb" & ";" 
          Kommand.Connection.Close() 
         Conn.close() 
         console.WriteLine (conn.State())
         Adapter.SelectCommand = Kommand   
         Kommand.Connection.Close()  
         Conn.close()  
         console.WriteLine (conn.State()) 
         Adapter.Fill(ds)
         console.WriteLine (conn.State()) 
         ds.WriteXml("produkt.xml", XmlWriteMode.WriteSchema) 
         console.WriteLine (conn.State()) 
 
       Catch ex As Exception  
            Console.WriteLine(ex.ToString) 
       End Try	
   End Sub
End Module