数据库查询小问题，路过不要错过~~

Question

报错信息：bof或eof中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。代码：
    Set conn1 = New ADODB.Connection
    conn1.Open DrugsManagement.Adodc1.ConnectionString
    Rs1.ActiveConnection = conn1.ConnectionString    If DrugsManagement.txtDrugsName <> "" Then
        Rs1.Source = "select * from DrugsDataBase where DrugsName like '*" & DrugsManagement.txtDrugsName & "*'"
        Rs1.Open
    End If
    
    Debug.Print Rs1("ID").Value
    On Error Resume Next
    Rs1.Close
    Set Rs1 = Nothing
    Set conn = Nothing报错语句：Debug.Print Rs1("ID").Value信息：确定数据库中有记录，select语句在access数据库中查询出有记录，但是在程序运行中却报错，请问为什么？怎样解决？

Answer 1

Rs1.Source = "select * from DrugsDataBase where DrugsName like '%" & DrugsManagement.txtDrugsName & "%'"