If imp_stamm.ShowDialog() = DialogResult.OK Then
                DataGrid1.Visible = True
                btn_save.Enabled = True
                Dim ConString As String = _
                  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
                  imp_stamm.FileName + ";Jet OLEDB: Database Password=1234"
                Dim MyCon As New OleDb.OleDbConnection(ConString)
                Dim MyDA As OleDb.OleDbDataAdapter
                Dim MyDT As DataTable
                Try
                    MyCon.Open()
                    MyDA = New OleDb.OleDbDataAdapter("SELECT * FROM" & _
                      "stammdaten", MyCon)
                    MyDA.Fill(MyDT)
                    DataGrid1.DataSource = MyDT
                Catch MyEx As OleDb.OleDbException
                    MessageBox.Show(MyEx.Message)
                Finally
                    MyCon.Close()
                End Try
            End If

--
Wann und wo ? Denn, Dort....!

VB.NET 2005 EE / MySQL / MSSQL EE