Sub Anlagenteil_einfuegen(ByVal Anlagenteil)
        A_ID_Autowert()
 
        gv_cnn = New SqlConnection(gc_SQL_CONNECT)
        gv_cnn.Open()
 
        With gv_cnn.CreateCommand
            .CommandText = "insert into Anlagenteil ( A_ID,Anlagenteil) values (" & _
              "'" & A_id & "','" & Anlagenteil & "')" 
            If gv_cnn.State = ConnectionState.Closed Then gv_cnn.Open()
            .ExecuteNonQuery()
        End With
 
    End Sub

DAAAAAAAAAAAAAAAAAAAAAAnke