主题：提示

With DataTables("配件采购表")
    Dim dr As DataRow = DataTables("配件采购表").find("配件名称 = '"& Tables("配件采购表").Current("配件名称") &"'","日期 Desc",1)
    Dim dr1 As DataRow = DataTables("配件采购表").find("配件名称 = '"& Tables("配件采购表").Current("配件名称") &"'","日期 Desc",2)
    Dim dr2 As DataRow = DataTables("配件采购表").find("配件名称 = '"& Tables("配件采购表").Current("配件名称") &"'","日期 Desc",3)
    If dr IsNot Nothing Then '如果找到的话
        MessageBox.Show("前次配件单价:" & dr("配件单价"),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        MessageBox.Show("前次配件单价:" & dr1("配件单价"),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        MessageBox.Show("前次配件单价:" & dr2("配件单价"),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If
End With

求助，如何将上述代码改为SQL代码，能够从数据库提取配件单价

谢谢！