Problema con enviar datos de las tablas

[holly86]

Saludos
Nesecito su ayuda porfavor
Tengo una problema Con la programación de visual Basic 2005 :(
Resulta que me e creado un programa que uno crea un cliente, al tenerlo uno va al boton buscar cleinte selecciona ese cliente al encontrarlo uno apreta seleccionar y muestra una pantalla en el form 1 que son los datos guardados para asi uno apretar el boton ver diezmo y se abre un form que sirviria para ingresar de ese usuario un monto en dinero.

Tengo 2 tablas , una es un usuario (ID, Rut, Nombre,….,Etc) y la otra es el Diezmo (N°, IDCliente, Monto, Fecha de Ingreso)

Tengo un Cliente_Diezmo Relacionando el ID con el IDclientes
Como muestra la imagen, lo estare haciendo mal?

imagechile.net/img/img9_1239730777b.JPG

En este programa :

Aca se selecciona el usuario :

imagechile.net/img/img8_1239729779l.JPG

Aca al tener los datos ingresados , ahi un boton llamado ver diezmo en el cual deveria mostrar una pantalla en la cual ya tiene ese usuario asignado y solamente resta ingresar
Los valores del dinero

imagechile.net/img/img1_1239729676q.JPG

El problema es, como hacer para sean enviados al otro form para así que en el otro form
Reconosca el ID y asi automáticamente pueda ingresar los datos de la tabla Diezmo sin problema alguno.

Aca les dejo el codigo.

Código:

Public Class Form1


Private Sub btnCrearUsuario_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCrearUsuario.Click
        My.Forms.FormNuevo.Show()
    End Sub

    Private Sub BtnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
        Dim seleccionarcliente As New FormBuscar
'Aca es donde traspase los datos a los textbox
        seleccionarcliente.ShowDialog()
        txtID.Text = CStr(seleccionarcliente.dni)
        txtrutcl.Text = seleccionarcliente.rutcli
        txtnom.Text = seleccionarcliente.nom
        txtapepat.Text = seleccionarcliente.apepat
        txtapemat.Text = seleccionarcliente.apemat
        Me.btnVerDizmo.Enabled = True
        If CDbl(txtID.Text) = 0 Then
            Me.txtID.Text = ""
            Me.btnVerDizmo.Enabled = False
        End If
    End Sub

    

Private Sub btnLimpiarCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiarCliente.Click
        txtID.Text = ""
        txtnom.Text = ""
        txtapepat.Text = ""
        txtapemat.Text = ""
        txtrutcl.Text = ""
        Me.btnVerDizmo.Enabled = False
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Lo deshabilito para que solamente al seleccionar los datos se pueda ingresar el diezmo
        Me.btnVerDizmo.Enabled = False
    End Sub

    Private Sub btnVerDizmo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerDizmo.Click
        My.Forms.FormAgregarDiezmo.MdiParent = Me
        My.Forms.FormAgregarDiezmo.Show()
    End Sub

End Class 

Y el codigo del Form Buscar es

Código:

Public Class FormBuscar
'Declaro las variables para que guarden los datos
    Public dni As Integer
    Public nom As String
    Public apepat As String
    Public apemat As String
    Public rutcli As String


    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
'Aca donde el usuario coloque el nombre o apellidos y ahi buscara por el nombre Me.ClientesTableAdapter.FillByNombre(ClientesDs.Clientes, "%" & TextBox1.Text & "%")
    End Sub

  Private Sub btnSeleccionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSeleccionar.Click
'Aca es donde guardo los datos al seleccionar
        dni = ClientesDs.Clientes(ClientesBindingSource.Position).ID
        nom = ClientesDs.Clientes(ClientesBindingSource.Position).Nombre
        apepat = ClientesDs.Clientes(ClientesBindingSource.Position).Apellido_Paterno
        apemat = ClientesDs.Clientes(ClientesBindingSource.Position).Apellido_Materno
        rutcli = ClientesDs.Clientes(ClientesBindingSource.Position).Rut
        Close()
    End Sub

    Private Sub BtnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancelar.Click
        Me.Close()
    End Sub

    Private Sub FormBuscar_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Esto lo hise para que al seleccionar el boton del form 1, automaticamente me salgan todos los clientes registrados
'y Asi con el textbox de buscar solamente busco por nombre o apellidos
        Me.ClientesTableAdapter.FillByNombre(ClientesDs.Clientes, "%" & TextBox1.Text & "%")
    End Sub 

Por favor Ayudenme xD e quedado nuevamente estancado :(