Dim SQL As String = "Select * from Tabelle1"
    	Dim da As New SqlDataAdapter(SQL, conn)
    	Dim cmdb As New SqlCommandBuilder(da)
    	Dim ds As New DataSet()
 
    	conn.Open()
    	da.Fill(ds, "tabelle1")
 
    	Dim dt As DataTable = ds.Tables("tabelle1")
    	da.Update(ds, "tabelle1")
 
 
 
 
 
        	ListBox1.DataSource = dt
        	ListBox1.DisplayMember = "Spalte1"
        	conn.Close()