Private Sub client_name_Leave(sender As Object, e As EventArgs) Handles client_name.Leave
    If client_name.Text = "" Then
        TextBox2.Focus()
    Else
        Dim dr3 As SQLiteDataReader
        Try
            cmd = New SQLiteCommand("select * from client where name='" & client_name.Text & "'  ", cn)
            cn.Close()
            cn.Open()
            dr3 = cmd.ExecuteReader()
            If dr3.HasRows = False Then
                'client_name.Focus()
                client_master.c1.Text = client_name.Text
                dr3.Close()
                Home.Panel1.Visible = False
                client_master.MdiParent = Me.MdiParent
                If client_master.WindowState = FormWindowState.Minimized Then
                    client_master.WindowState = FormWindowState.Normal
                End If
                client_master.Show()
                client_master.BringToFront()
            End If
            dr3.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cn.Close()

        Exit Sub
    End If

End Sub

这是我的代码，然后我离开client_name组合框，如果输入的值在数据库中不可用，则打开client_master表单输入新的客户端详细信息，但在我输入新的客户端详细信息后，client_name组合框不显示最新输入的值而不重新启动表单，我如何在不重新启动表单的情况下获得最新输入的值。