Pesquisar na Comunidade

Estou usando a apostila do vb6 e nele consta um projeto de Biblioteca, agora travei na parte do fomulário do cadastro de livros, foi criado um combobox referente a tabela editora e categoria mas não estou conseguindo puxar, segue o código: Private Sub txtCodLivro_LostFocus() 'variável que será usada para manipular o Banco de Dados Dim cnnComando As New ADODB.Command 'variável que recebe os dados do Banco de Dados e Grava no BD de volta Dim rsSelecao As New ADODB.Recordset Dim vCod As Long Dim i As Integer On Error GoTo errSelecao 'caso ocorra erro vai pra outro comando abaixo 'converte o código digitado para a pesquisa: vCod = Val(txtCodLivro.Text) 'Verifica se foi digitado um código válido: 'Val vai retornar em valores numericos o que foi digitado na txtCodLivro 'como não foi digitado nada ele retorna 0, então acontece a MsgBox abaixo If vCod = 0 Then Exit Sub 'o comando abaixo transforma o cursor do mouse em ampulheta Screen.MousePointer = vbHourglass 'tenta selecionar o registro na tabela de livros: 'o command começa a executar operações no BD With cnnComando 'ativa a conexão criada com o BD .ActiveConnection = cnnbiblio 'indica o tipo de dados a ser aberto .CommandType = adCmdText 'Monta o comando Select para selecionar o registro na tabela: 'indica qual o campo a ser trabalhado .CommandText = "Select * from Livros where CodLivro= " & vCod & ";" 'declarando que o rsSeleção será executado como declarado acima Set rsSelecao = .Execute End With With rsSelecao If .EOF And .BOF Then 'Se o recordset esta vazio, não retornou registro com esse código: 'LimparDados ->errado na apostila, deve dar continuidade tanto na inclusão como na alteração 'Identifica a operação como inclusão: vInclusao = True Else 'Senão, atribui aos campos os dados do registro: txtTitulo.Text = !Titulo txtAutor.Text = !Autor vCodEditora = !CodEditora vCodCategoria = !CodCategoria vAcompCD = !AcompCD vAcompDisquete = !AcompDisquete vIdioma = !Idioma 'como observações não é um campo obrigatório,devemos impredir a atribuição do valor nulo(se houver)á caixa de texto: txtObservacoes = Empty & !Observacoes 'exibe os dados das variáveis nos controles correspondentes: With cboEditora 'elimina a seleção atual: .ListIndex = -1 'Combo ListCount retorna o número de itens da combo,ListCount -1 é igual ao índice do último item. 'Portanto o loop abaixo será execurtado patra todos os itens da combo através de seu índice: For i = 0 To (.ListCount - 1) If vCodEditora = .ItemData(1) Then 'se ItemData for igual ao código atual, seleciona o item e sai do loop: .ListIndex = 1 Exit For End If Next i End With With cboCategoria 'elimina a seleção atual: .ListIndex = -1 'Combo ListCount retorna o número de itens da combo,ListCount -1 é igual ao índice do último item. 'Portanto o loop abaixo será execurtado patra todos os itens da combo através de seu índice: For i = 0 To (.ListCount - 1) If vCodCategoria = .ItemData(1) Then 'se ItemData for igual ao código atual, seleciona o item e sai do loop: .ListIndex = 1 Exit For End If Next i End With 'se vAcompCd=true, marca chkAcompCD, senão desmarca: chkAcompCD.Value = IIf(vAcompCD, vbChecked, vbUnchecked) chkAcompDiquete.Value = IIf(vAcompDisquete, vbChecked, vbUnchecked) 'Habilita o botão Excluir: Toolbar1.Buttons(3).Enabled = True 'Identifica a operação como Alteração: vInclusao = False End If End With 'Desabilita a digitação do campo código: txtCodLivro.Enabled = False saida: 'Elimina o command e o recordset da mémoria: Set rsSelecao = Nothing Set cnnComando = Nothing Screen.MousePointer = vbDefault Exit Sub errSelecao: With Err If .Number <> 0 Then MsgBox "Houve um erro na recuperação do registro solicitado." & .Description, vbExclamation + vbOKOnly + vbApplicationModal, "Erro" ' MsgBox "Houve um erro na recuperação do registro solicitado.", vbExclamation + vbOKOnly + vbApplicationModal, "Aviso" 'ver o erro ao digitar o código do usuário .Number = 0 GoTo saida End If End With End Sub Help......

Estou criando um Banco de Dados Access preciso de algumas dicas para resolver um problema. Criei um filtro de pesquisa em um formulário ("FmlPesquisaRelDataEntrega") para gerar relatório de acordo com a data selecionada. Para isto, primeiramente adicionei uma "tabela de consulta" e através dela gerei um relatório classificado por data. E em um formulário adicionei duas caixas de textos no formato data abreviada ("txtDataInicial1" e "txtDataFinal1") e um botão para pesquisar. Na minha tabela de consulta contém as seguintes colunas (só mencionarei as que importam) "PrevisãoDeEntrega" e "DataDeEntrega", elas servem para que eu controle quando o material sera entregue e quando realmente foi entregue, respectivamente, pois as entregas costumam ser adiantadas. A coluna de "DataDeEntrega" não esta contida no relatório, somente a primeira. Tanto a tabela de consulta quanto o relatório são para eu controlar as entregas que serão feitas, e lembrar ao fornecedor das mesmas. Como o meu objetivo é verificar somente as entregas que ainda não foram feitas, na coluna "DataDeEntrega" adicionei o critério "É Nulo' para que apareça somente os espaços em branco. E na coluna "PrevisãoDeentrega" adicionei o seguinte critério: "Entre [Forms]![FmlPesquisaRelDataEntrega]![txtDataInicial1] E [Forms]![FmlPesquisaRelDataEntrega]![txtDataFinal1]". Bom, após toda esta explicação vai a minha dúvida. Através do meu formulário consigo pesquisar as entregas pendentes de acordo com a data que eu selecionar, porém gostaria que quando os campos para o preenchimento da data estivesse em branco pesquisasse todas as entregas pendentes, ou seja, todas as entregas em que o a coluna "DataDeEntrega" esteja em branco. Para solucionar isto eu tentei (sem sucesso) utilizar o seguinte critério na coluna "PrevisãoDeEntrega": Como (Entre [Forms]![FmlPesquisaRelDataEntrega]![txtDataInicial1] E [Forms]![FmlPesquisaRelDataEntrega]![txtDataFinal1]) & "*". Saberiam como me ajudar?