'objcomm.Fill(ds, "Nr_ID")
'Dim RowsCount As Integer = ds.Tables("Nr_ID").Rows.Count
'your_label.Text = RowsCount.ToString()