Dim myConn As New System.Data.OleDb.OleDbConnection
        Dim myCommand As New System.Data.OleDb.OleDbCommand
        Dim myDataAdapter As New System.Data.OleDb.OleDbDataAdapter
        Dim myDataSet As New System.Data.DataSet
        Dim myDataRow As System.Data.DataRow
        Dim myDataTable As System.Data.DataTable
        Try
            myConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB" & _
              "Services=-4; Data Source=C:\Dokumente und Einstellungen\All" & _
              "Users\Anwendungsdaten\Pinnacle Systems\Mobile Media" & _
              "Master\media.mdb"
            myCommand.CommandText = "SELECT Name, Type FROM MSysObjects WHERE ((" & _
            "Name Not Like ""msys*"") AND (Type=1));"
            myCommand.Connection = myConn
            myDataAdapter.SelectCommand = myCommand
            myDataAdapter.Fill(myDataSet)
            myDataRow = myDataSet.Tables(0).Rows(0)
            myDataTable = myDataSet.Tables(0)
            MsgBox(myDataAdapter.Site.Name.ToString)
            System.Windows.Forms.MessageBox.Show(myDataRow.Item(1))
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show("Exception in query: " + _
              ex.Message, "Error")
        End Try