Imports System.Data.OleDb
Public Class MainWindow
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim myConnection As OleDbConnection
        Dim sqlInto As OleDbCommand
        Dim sqlDrop As OleDbCommand
 
        myConnection = New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=|DataDirectory|\testDB.mdb")
        sqlInto = New OleDbCommand("SELECT * INTO STRQUERY_FKAVISE FROM" & _
        "STRQUERY_FKAVISE1", myConnection)
        sqlDrop = New OleDbCommand("DROP TABLE STRQUERY_FKAVISE", myConnection)
        Try
            myConnection.Open()
            'sqlInto.ExecuteNonQuery()
            sqlDrop.ExecuteNonQuery()
        Catch ex As Exception
            myConnection.Close()
 
        End Try
 
        myConnection.Close()
 
    End Sub
End Class

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste