Private Sub Doc_Id_bank()

       ds.Reset()

       con = New SqlConnection(strcon)

       con.Open()

       strsqlDocId = " SELECT   from ArchiveHeder  "

       da = New SqlDataAdapter(strsqlDocId, con)

       da.Fill(ds, "ArchiveHeder")

       con.Close()

       TextBox1.Text = ds.Tables("ArchiveHeder").Rows(0).Item("DocId")

   End Sub

چگونه میشود بجای( (ROWS(0) آخرین رکورد موجود در دیتابیس را آورد