DataGrid1问题

本人想实现的功能是：当当DataGrid1中有，数据被选中时，就不需要谈出MsgBox的消息
中有，数据被选中时，就不需要谈出MsgBox的消息
当DataGrid1中有，数据不被选中时，就谈出MsgBox的消息，说明DataGrid1中的数据要被选中，光标要落在数据里
下面的程序，需要在哪里修改
If DataGrid1.Book = adoRS.Book Then
        If MsgBox("请选择所借图书的记录！", vbInformation + vbOKCancel, strWarning) = vbOK Then
            FrmBorrowed.Show 1
        End If
    End If