Sub AddNewRecord()
        Dim objConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\CreditAbility.mdb")
        Dim objCommand As OleDbCommand
        Dim tbProspect As DropDownList = DirectCast(Me.form1.FindControl("DropDownList1"), DropDownList)
        Dim strSQLQuery As String
        strSQLQuery = "INSERT INTO Client_Mas " _
           & "(FirstName,LastName,Address,City,State,ZipCode,EmailAddress,HomePhone,MobilePhone,DateAdd,Referralemail) " _         
& "Select Prospect.FirstName,Prospect_Mas.LastName,Prospect_Mas.Address,Prospect_Mas.City,Prospect_Mas.State,Prospect_Mas.ZipCode,
Prospect_Mas.EmailAddress,Prospect_Mas.HomePhone,Prospect_Mas.MobilePhone,Prospect_Mas.DateAdd,Prospect_Mas.Referralemail" _
           & " from Prospect_Mas where ProspectID=((Cosa Mettere qui per riferire a tbProspect));"

        objCommand = New OleDbCommand(strSQLQuery, objConnection)
        objConnection.Open()
        objCommand.ExecuteNonQuery()
        objConnection.Close()

    End Sub