Dim cmdInsert As New SqlCommand("insert into packauftrag (packauftrag_nr," & _
  "packauftrag_datum, packauftrag_name, packauftrag_bemerkung) values " _
                                      & " (@p1,@p2,@p3,@p4 ); Select" & _
                                      "scope_Identity()", con)
            cmdInsert.Parameters.AddWithValue("@p1", varPacknr)
            cmdInsert.Parameters.AddWithValue("@p2", Now)
            cmdInsert.Parameters.AddWithValue("@p3", varPackname)
            cmdInsert.Parameters.AddWithValue("@p4", TextBox1.Text)
 
            Dim varID As Integer = cmdInsert.ExecuteScalar