数据库是access吗

access vba中使用sql的方法举例: Private Sub Command12_Click() Dim sqlStr As String Dim condStr As String Dim db As Database Dim rs As Recordset Dim f As Field Set db = CurrentDb sqlStr = "SELECT 品名.名称, 品名.性质（分类）, 品名.类别, 品名.用法,品名.有效病菌 FROM [品名]" If Me.名称 "" Then condStr = " 品名.名称 = '" & Me.名称 & "'" ElseIf Me.性质 "" Then condStr = " 品名.性质（分类） = '" & Me.性质 & "'" ElseIf Me.用法 "" Then condStr = " 品名.用法 = '" & Me.用法 & "'" ElseIf Me.类别 "" Then condStr = " 品名.类别 = '" & Me.类别 & "'" ElseIf Me.有效病菌 "" Then condStr = " 品名.有效病菌 = '" & Me.有效病菌 & "'" End If If condStr "" Then sqlStr = sqlStr & " where " & condStr End If Set rs = db.OpenRecordset(sqlStr, dbOpenDynaset) Me.查询数据.Form.RecordSource = sqlStr Me.查询数据.Requery End Sub