小吳 VBQA 程式設計討論

我的程式大約是這樣....
Private Sub Form_Load()
Call ShowData
End Sub
Private Sub ShowData
SQL = "SELECT ......."
　If rs.State Then rs.Close
　rs.Open SQL, Conn, adOpenKeyset, adLockPessimistic
　Set DataGrid1.DataSource = rs
End Sub
Private Sub Form_Unload()
rs.Close
　 Conn.Close
End Sub
結束時會跳出如下警告視窗：
標題：Microsoft DataGrid控制項
內容：目前的資料列不存在
請問要如何才能使警告視窗不見？