Cargar con consulta un nuevo form

Hola hose100500.. Te explicaré mi dilema.. Tengo que hacer un proyecto que en el form1 introduzcas un numero para buscar y damos click en aceptar (internamente lo busca y digamos que lo encuentra el numero en una de las 2 bases de datos).. Entonces (como encontró la información) se cierra el form1 y me abre el form2 con todos los datos del numero que puse en el form1..
Ahora bien.. No se ni por donde empezar.. He leído varias cosas pero sigo muy confundida.. ¿me podrías ayudar con esto explicándome más o menos lo que se tiene que hacer..? O alguna sugerencia de como se har;¿ia esto?
Tengo algo de código.. Te lo pongo a continuación (este es el form1):
Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
        Dim formulariopr As New vntaceptar
        'Nuevo Laredo
        Dim conn As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection("Data Source=69.20.120.91;Initial Catalog=BD240;Persist Security Info=True;User ID=sitauser;Password=bmdesarrollo")
        Dim objCmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT NUM_REF FROM FACT1 WHERE NUM_REF= ('" & txtreferencia.Text & "')", conn)
        Dim ObjLector As SqlClient.SqlDataReader
        Dim laredo As String
        'Piedras Negras
        Dim conn1 As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection("Data Source=69.20.120.91;Initial Catalog=BD270;Persist Security Info=True;User ID=sitauser;Password=bmdesarrollo")
        Dim objCmd1 As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT NUM_REF FROM FACT1 WHERE NUM_REF= ('" & txtreferencia.Text & "')", conn1)
        Dim ObjLector1 As SqlClient.SqlDataReader
        Dim piedras As String
        Try
            objCmd.Connection.Open()
            ObjLector = objCmd.ExecuteReader
            ObjLector.Close()
            objCmd.Connection.Close()
            laredo = objCmd.ToString
            objCmd1.Connection.Open()
            ObjLector1 = objCmd1.ExecuteReader
            ObjLector1.Close()
            objCmd1.Connection.Close()
            piedras = objCmd1.ToString
            'objCmd.CommandText("@NUM_REF")
            If piedras = txtreferencia.Text Or laredo = txtreferencia.Text Then
                formulariopr.ShowDialog()
            Else
                MsgBox("No ahi datos, Desea Crear uno nuevo??", MsgBoxStyle.YesNo)
                If MsgBoxResult.Yes Then
                    formulariopr.ShowDialog()
                    Me.Close()
                ElseIf MsgBoxResult.No Then
                    txtreferencia.Clear()
                End If
            End If
        Catch ex As Exception
            MsgBox("No se establecio la conexion", MsgBoxStyle.OkOnly)
        Finally
        End Try
    End Sub
--Y este es el form2
Private Sub vntaceptar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'BD240DataSet.FACT1' table. You can move, or remove it, as needed.
        Me.FACT1TableAdapter.Fill(Me.BD240DataSet.FACT1)
        Dim conn As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection("Data Source=69.20.120.91;Initial Catalog=BD240;Persist Security Info=True;User ID=sitauser;Password=bmdesarrollo")
        Dim objCmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT NUM_REF,ADUANA FROM FACT1 WHERE NUM_REF= ('" & txtreferencia.Text & "')", conn)
        Dim objcliente As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT CVE_CLI,NOMCLI,RFC FROM CMCLI WHERE RFC=RFCCTE", conn)
        Dim ObjLector As SqlClient.SqlDataReader
        'Piedras Negras
        Dim conn1 As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection("Data Source=69.20.120.91;Initial Catalog=BD270;Persist Security Info=True;User ID=sitauser;Password=bmdesarrollo")
        Dim objCmd1 As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT NUM_REF,NUM_REC,FEC_ELAB,FEC_CIE,ESTATUS FROM CGPPAL WHERE NUM_REF= ('" & txtreferencia.Text & "')", conn1)
        InitializeComponent()
        numero_ref = ("@NUM_REF")
        aduanas = ("@ADUANA")
        objCmd.Connection.Open()
        ObjLector = objCmd.ExecuteReader
        ObjLector.Close()
        objCmd.Connection.Close()
        If objCmd.CommandText = txtreferencia.Text Then
            cbaduana.SelectedValue =...