Public Function ReadDataSet(ByVal theDS As DataSet, ByVal TableName As _
    String, ByVal SqlString As String) As Integer
    Dim myAdapter As New SqlDataAdapter(SqlString, myCon)
    If (theDS.Tables.IndexOf(TableName) <> -1) Then
      theDS.Tables(TableName).Rows.Clear()
 
    End If
    Try
      myAdapter.Fill(theDS, TableName)
    Catch ex As Exception
      System.Diagnostics.Debug.WriteLine(ex.Message)
    End Try
    Return theDS.Tables(TableName).Rows.Count
  End Function

  Dim myDS as new DataSet
  Dim NumRead as Integer = ReadDataSet(myDS, "Adressen", "Select * FROM" & _
    "Adressen")

myDS.Tables("Adressen").Rows

  Private Sub TablefiledsToAttribute(ByVal theTable As DataTable)
    For Each col As DataColumn In theTable.Columns
      col.ColumnMapping = MappingType.Attribute
    Next
  End Sub

  myDS.WriteXml( "Adressen.xml")