vb 获得datagrid中的ID号

Dim myval As String
Dim SQL As String
Dim sql1 As String
Dim id As Integer
id = Int(v)
Dim rs As New ADODB.Recordset
myval = MsgBox("是否真的删除该数据？", vbYesNo)
If myval = vbYes Then
On Error Resume Next
sql1 = "delete from khgl where id = " & v & ""
rs.Open sql1, Connectstring, 1, 3
'重新查询数据
Set rs = Nothing
SQL = SQL & " SELECT 询价时效 = "
SQL = SQL & " case cast(datediff(dd,来电时间,getdate()) as char(4))"
SQL = SQL & " WHEN '1' THEN '1'"
SQL = SQL & " WHEN '2' THEN '2'"
SQL = SQL & " WHEN '3' THEN '3'"
SQL = SQL & " Else '无效'"

SQL = SQL & " end,"
SQL = SQL & " k.*"
SQL = SQL & " FROM khgl k"
SQL = SQL & " order by 询价时效"