[الكاتب]

كود :

 If Sqlconn.State = ConnectionState.Open Then
           Sqlconn.Close()
       End If
       Sqlconn.Open()
       Dim da1 As New SqlDataAdapter(" select Top 1 ID from Fatora Order BY ID DESC   ", Sqlconn)
       Dim ds1 As New DataSet
       da1.Fill(ds1)
       TextB7.Text = ds1.Tables(0).Rows(0)(0) + 1
       Sqlconn.Close()