将一些数据插入表单中的数据库文件，并在另一个表单上显示此数据

Question

我想要这样的方式

form1 open

按钮2单击

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Form2.ShowDialog()
End Sub

form2已打开

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If kontrol() = 0 Then
        bağlantı.Open()
        Dim komut As New SqlClient.SqlCommand("INSERT INTO proje (ad, kod, il, ilçe, adres, firma, yetkili, telefon) VALUES (@ad,@kod,@il,@ilçe,@adres,@firma,@yetkili,@telefon)", bağlantı)
        komut.Parameters.AddWithValue("@ad", TextBox1.Text)
        komut.Parameters.AddWithValue("@kod", TextBox2.Text)
        komut.Parameters.AddWithValue("@il", ComboBox1.Text)
        komut.Parameters.AddWithValue("@ilçe", ComboBox2.Text)
        komut.Parameters.AddWithValue("@adres", TextBox3.Text)
        komut.Parameters.AddWithValue("@firma", TextBox4.Text)
        komut.Parameters.AddWithValue("@yetkili", TextBox5.Text)
        komut.Parameters.AddWithValue("@telefon", TextBox6.Text)
        komut.ExecuteNonQuery()
        bağlantı.Close()
        Form3.ShowDialog()
        Close()
End Sub

将一些数据插入到form2上的数据库中并显示form3

in form3;

    Dim adaptör As New SqlDataAdapter("select * from proje", bağlantı)
    Dim ds As New DataSet
    adaptör.Fill(ds, "psanal")
    For Each row As DataRow In ds.Tables("psanal").Rows
        'find last entered data and do something
    Next
End Sub

我找不到我在form3中插入form2的数据，但是如果我关闭form3并再次打开form3那么它就可以了。我希望在没有close form3的情况下执行此操作，因为form3在form2上插入数据后会自动打开，并且必须在form3中的文本框中显示所有数据。