ERROR 3265 PROBLEMAS COM DELETE VB6MYSQL5

  Private Sub cmdExcluir_Click()
Set objrs = New ADODB.Recordset
objrs.CursorLocation = adUseClient
objrs.Open "SELECT tb_alunos.* From tb_alunos", objCN, adOpenStatic, adLockOptimistic

If objrs(0) > 0 Then
     If (MsgBox("Confirma a Remoção do Aluno(a): '" & cboNome.Text & "' do Sistema", vbYesNo, "Deletar Dados do Aluno " & txtId_Aluno.Text & "") = vbYes) Then
         
            sSql = "DELETE FROM tb_alunos WHERE Id_Aluno=" & txtId_Aluno.Text & ""
            objCN.Execute sSql
                  MsgBox "Registro Deletado do Sistema !", vbInformation, "Registro Deletado"
                       Call LimparTextBox
                            Call LimparCboBox
                                 chkAtivo.Value = vbUnchecked
                                    txtId_Aluno.Text = ""
                                       txtCpf.Text = ""
                                          objrs.MoveNext
                                    If objrs.EOF Then
                            objrs.MoveLast
                         End If
                   End If
              End If
        cboNome.Clear
objrs.Close
'Exit Sub
Call CarregaRegistros ' CARREGA OS TEXTBOX
Call CarregaNome ' CARREGA A LISTA DA COMO
Call PreencheCBOText ' CARREGA A PROPRIEDADE TEXT DA COMBO QUE é ONDE ELE APONTA PARA CBOEMPRESA.TEXT = OBJRS!EMPRESA & ""

Set objrs = Nothing

End Sub