Visual Basic

Public Function Get_Data_Straight(ByVal strNumkey As String) As DataSet
      Dim strSQl As String = "SELECT Primary_ID, Boundary_area, Attrib_Code, Lis_Key, Func_Key, Actual_Extent, Improved_Value, Site_Value, Purchase_price, Purchase_date, prop_id, confidence_score, fin_ls_prediction, new_lis_key, new_func_key, Tshwane_Prediction, matchflag, source, flagtype, Locked FROM Property_mass WHERE (SUBSTRING(Lis_Key, 1, 4) = @Lis_key) AND (Locked IS NULL)"
      Dim constr As String = "user id=sde;Password=@@@@@@;Server=@@@@@@@@;persist security info=False;initial catalog=Tshwane_Valuations_Train"
      Dim cmb As SqlCommandBuilder
      Dim con As SqlConnection
      Dim da As SqlDataAdapter
      Dim cmd As SqlCommand

      Dim ds As DataSet
      Try

          ds = New DataSet
          con = New SqlConnection(constr)
          con.Open()
          'Inituializing the Connection Object
          cmd = New SqlCommand(strSQl)

          'Telling the connection object where is the Database
          cmd.Connection = con
          'Initializing the adapter
          da = New SqlDataAdapter

          'we tell the adapter which object we are using
          da.SelectCommand = cmd
          da.SelectCommand.Parameters.Add("@Lis_key", strNumkey)
          ' da.SelectCommand.Parameters.Add(New SqlParameter("@Lis_Key", strNumkey))
          ds.Clear()
          da.Fill(ds, "Property_Mass")
      Catch ex As SqlClient.SqlException

          MsgBox(ex.Message)

      End Try
      Return ds

  End Function

Public Sub UpdateLis_search_Straight(ByVal dsData As DataSet)
    'update data in the actual database
    Dim strSQl As String = "SELECT Primary_ID, Boundary_area, Attrib_Code, Lis_Key, Func_Key, Actual_Extent, Improved_Value, Site_Value, Purchase_price, Purchase_date, prop_id, confidence_score, fin_ls_prediction, new_lis_key, new_func_key, Tshwane_Prediction, matchflag, source, flagtype, Locked FROM Property_mass WHERE (SUBSTRING(Lis_Key, 1, 4) = @Lis_key) AND (Locked IS NULL)"
    Dim constr As String = "user id=sde;Password=@@@@@@;Server=@@@@@@;persist security info=False;initial catalog=Tshwane_Valuations_Train"
    Dim cmb As SqlCommandBuilder
    Dim con As SqlConnection
    Dim da As SqlDataAdapter
    Dim cmd As SqlCommand
    Try
        da.UpdateCommand = cmb.GetUpdateCommand
        da.Update(dsData)
        'adpAccess.Update(dtbschemaDatabases)
    Catch ex As SqlClient.SqlException
        MsgBox(ex.Message)


    End Try
End Sub

Dim myHandler As Windows.Forms.KeyPressEventHandler<br />
<br />
    Custom Event myEvent As Windows.Forms.KeyPressEventHandler<br />
        AddHandler(ByVal value As Windows.Forms.KeyPressEventHandler)<br />
            myHandler = value<br />
        End AddHandler<br />
<br />
        RemoveHandler(ByVal value As Windows.Forms.KeyPressEventHandler)<br />
            myHandler = Nothing<br />
        End RemoveHandler<br />
<br />
        RaiseEvent(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)<br />
            If Not myHandler Is Nothing Then<br />
              Me.TextBox1.Invoke(sender, e)            Else<br />
            End If<br />
        End RaiseEvent<br />
    End Event<br />
<br />
    Sub raise_event()<br />
        Dim sender As New Object<br />
        Dim e As System.Windows.Forms.KeyPressEventArgs<br />
        RaiseEvent myEvent(sender, e)<br />
    End Sub<br />
<br />
<br />
    Dim d1 As Windows.Forms.KeyPressEventHandler<br />
<br />
<br />
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        d1 = New Windows.Forms.KeyPressEventHandler(AddressOf MyDelegate)<br />
    End Sub<br />
<br />
    Sub MyDelegate(ByVal sender As Object, ByVal e As Windows.Forms.KeyPressEventArgs)<br />
        If Asc(e.KeyChar) = 65 Then<br />
            MsgBox("65")<br />
        ElseIf Char.IsLetterOrDigit(e.KeyChar) <> True Then<br />
            MsgBox(Asc(e.KeyChar))<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        AddHandler Me.myEvent, d1<br />
        raise_event()<br />
    End Sub