Private Sub A_ID_Autowert()
 
        gv_cnn = New SqlConnection(gc_SQL_CONNECT)
        gv_cnn.Open()
        gv_Adapter = New SqlDataAdapter("select max(A_id) as A_id from" & _
          "Anlagenteil", gv_cnn)
        gv_Adapter.Fill(ds4)
        dr4 = ds4.Tables(0).Rows(0)
        A_id = dr4("A_ID")
        A_id = A_id + 1
    End Sub

DAAAAAAAAAAAAAAAAAAAAAAnke