Public Class machwas
Public ds As New DataSet
Public dtab1 As New DataTable
Public dtab2 As New DataTable
Public Sub fill_dtab1(ByVal InstForm1)
        agstr = "tab1"
        Dim sql As String = "Select * From TabA"
        Dim comd As New OleDb.OleDbCommand(sql, cn)
        Dim adp As New OleDb.OleDbDataAdapter
        'ds.Clear()
        comd.CommandTimeout = 30
        adp.SelectCommand = comd
        If cn.State = ConnectionState.Closed Then
            cn.Open()
        End If
        Try
            adp.Fill(ds, agstr)
            dtab1 = ds.Tables(agstr)
  Catch Ausnahme As Exception
            MessageBox.Show("Keine DS vorhanden!", "Abbrechen",     
            MessageBoxButtons.OK) 
  End Try
        cn.Close()
End Sub
Public Sub fill_dtab2(ByVal InstForm1)
	dtab2 = dtab1
End Sub

 
Public Module Var
    Public dtab1 As New DataTable
    Public dtab2 As New DataTable
End Module