Filtro Combobox con SQL

[panquitaro]

Saludos estimados , mi problema es el siguiente cuando abro el form3
no puedo filtrar el combobox del form1 .

les adjunto una foto de la forma normal con la que filtra:



y asi aparece cuando abro el FORM3 y despues trato de abrir los combobox del form1




Estos son los codigos que los ordené lo mas entendible posible.



CODIGOS DEL FORM1

Código .net:

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
 
 
Public Class Form1
 
    'DECLARACIOON DE VARIABLES COMBOBOX - FILTRO EQUIPOS ACARREO - GUARDIA - TURNO
    Dim variable As SqlDataReader
    Dim spartacarreo As New SqlCommand
    Dim spartacodigo As New SqlCommand
 
Private Sub Form1_Load(ByVal sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       
        conectar()
       
        'FILTRO COMBOBOX ACARREO PRINCIPAL
 
        spartacarreo.CommandType = CommandType.Text
        spartacarreo.CommandText = ("Select Acarreo from acarreo")
        spartacarreo.Connection = (con)
 
        spartacodigo.CommandType = CommandType.StoredProcedure
        spartacodigo.Connection = (con)
        spartacodigo.CommandText = ("buscar")
 
        spartacodigo.Parameters.Add("@variable1", SqlDbType.VarChar, 50)
 
 
        If (con.State = ConnectionState.Closed) Then con.Open()
 
        variable = spartacarreo.ExecuteReader()
        While variable.Read = True
 
            Cmbacarreo.Items.Add(variable.Item(0))
 
 
        End While
 
        con.Close()
 
    End Sub
 
    'combobox acarreo FILTRO PARA combobox CODIGO
 
 
    Private Sub Cmbacarreo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Cmbacarreo.SelectedIndexChanged
        spartacodigo.Parameters("@Variable1").Value = Cmbacarreo.SelectedItem
        CmbCodigo.Text = ""
        
    Try
            If (con.State = ConnectionState.Closed) Then con.Open()
            CmbCodigo.Items.Clear()
            variable = spartacodigo.ExecuteReader()
            While variable.Read = True
                CmbCodigo.Items.Add(variable.Item(0))
            End While
            con.Close()
        Catch ex As Exception
        End Try
 
    End Sub
 
 
    'BOTON ABRIR FORM2
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button62.Click
        Form2.Visible = True
        Form2.Focus()
 
 
    End Sub
 
 
End Class
 

El codigo del FORM3 es el siguitente:

Código .net:

Imports System
Imports System.Data.SqlClient
Imports System.Data
 
Public Class Form3
    Dim variable As SqlDataReader
    Dim spartacarreo As New SqlCommand
    Dim spartacodigo As New SqlCommand
 
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        conectar()
 
        spartacodigo.CommandType = CommandType.StoredProcedure
        spartacodigo.Connection = (con)
        spartacodigo.CommandText = ("NiveldeTrabajo")
        spartacodigo.Parameters.Add("@Fecha", SqlDbType.VarChar, 50)
 
        If (con.State = ConnectionState.Closed) Then con.Open()
        variable = spartacarreo.ExecuteReader()
        While variable.Read = True
            ComboBox1.Items.Add(variable.Item(0))
        End While
        con.Close()
 
 
    End Sub
 
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
 
    End Sub
 
    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
        Try
            spartacodigo.Parameters("@Fecha").Value = DateTimePicker1.Text
            ComboBox1.Text = ""
 
            If (con.State = ConnectionState.Closed) Then con.Open()
 
            ComboBox1.Items.Clear()
            variable = spartacodigo.ExecuteReader()
            While variable.Read = True
                ComboBox1.Items.Add(variable.Item(0))
            End While
 
        Catch ex As Exception
            con.Close()
        End Try
    End Sub
End Class
 

El codigo del modulo que conecta a la DB es el siguiente

Código .net:

Imports System.Data
Imports System.Data.SqlClient
 
Module Module1
 
    'creacion devariable publica para menrjar conexion
 
    Public con As SqlConnection
    'declaracion de procedimiento para el manejo de la cadena
 
    Public Sub conectar()
 
        con = New SqlConnection
        con.ConnectionString = "Data Source=pasco15;Initial Catalog=SPARTANO;Integrated Security=true"
        con.Open()
 
 
    End Sub
 
 
End Module
 

si tienen alguna duda o falta algun dato pregunten nomas por favor.