主题：多行引用

我想实现点击窗口按钮，能够自动更新 配件.配件用量 表的单价。

调试了N次无法实现，求助
Dim acmd As New SQLCommand
Dim adt As Double
Dim adr As String = Tables("配件.配件用量").Rows.Count("名称")
Dim adr1 As Double = Tables("配件.配件用量").Rows.Count("单价")
acmd.C
acmd.CommandText = "SELECT 单价 From {配件表} Where [名称] = '" & adr & "' Order By 日期 Desc"
adt = acmd.ExecuteScalar()
If adr1 Then
    If adt <> 0 Then
        adr1= adt
    Else
        adr1 = 0
    End If
End If

谢谢！