Dim d_adap As SqlDataAdapter
Dim d_set As DataSet = New DataSet
d_set = New DataSet
Dim temp_sql As String
temp_sql = "select top 1 Ph_ID,Ph_Value,Dog_F_No from Ph_Value " & _
"where Dog_F_No = '" & SendData.Dog_fID & "' order by Ph_ID desc "
d_adap = New SqlDataAdapter(temp_sql, sqlConnection)
d_adap.Fill(d_set, "Ph_Value")