Visual Basic

<br />
Private Structure WSADATA<br />
        Dim wVersion As Short<br />
        Dim wHighVersion As Short<br />
        <vbfixedarray(wsadescription_len)> Dim szDescription() As Byte<br />
        <vbfixedarray(wsasys_status_len)> Dim szSystemStatus() As Byte<br />
        Dim iMaxSockets As Short<br />
        Dim iMaxUdpDg As Short<br />
        Dim lpszVendorInfo As Integer<br />
<br />
        Public Sub Initialize()<br />
            ReDim szDescription(WSADescription_Len)<br />
            ReDim szSystemStatus(WSASYS_Status_Len)<br />
        End Sub<br />
    End Structure<br />
<br />
  Private Const WS_VERSION_REQD As Short = &H101S<br />
<br />
 Dim WSAD As New WSADATA<br />
 Dim iReturn As Short<br />
  iReturn = WSAStartup(WS_VERSION_REQD, WSAD)------>This statement is returning an error saying that<br />
<br />
"System.AccessViolationException was unhandled<br />
  Message="Attempted to read or write protected memory. This is often an indication that other memory is corrupt.""<br />
</vbfixedarray(wsasys_status_len)></vbfixedarray(wsadescription_len)>

Public ObjMyComm As New MySqlCommand
    Public ObjMyRead As MySqlDataReader
    Public MyConn As MySqlConnection = New MySqlConnection(Connect())

    Public strSetKey As String
    Public ADD_BINLOG As String = "ADD_BINLOG"
    Public Conn As String
    Public Conn_localServer As String
    Public Conn_localDb As String
    Public Conn_localDbUID As String
    Public Conn_localDbPassword As String
    Public Conn_localDbPort As String


Public Function Connect()

'Data load from App.Config file
        Conn_localDb = ConfigurationSettings.AppSettings("MyLocalDb")
        Conn_localServer = ConfigurationSettings.AppSettings("MyLocalServer")
        Conn_localDbUID = ConfigurationSettings.AppSettings("MyLocalUID")
        Conn_localDbPassword = ConfigurationSettings.AppSettings("MyLocalPass")
        Conn_localDbPort = ConfigurationSettings.AppSettings("MyLocalPort")


        Conn = "DATABASE=" & Conn_localDb & ";DSN=" & Conn_localDb & ";OPTION=3;PORT=" & Conn_localDbPort & ";SERVER=" & Conn_localServer & ";UID=" & Conn_localDbUID & ";"
        MessageBox.Show(Conn)
        Return Conn
End Function


Public Function LoadBlnStartupData(ByVal strSetKey As String)
        Dim test As String

        Try
            MessageBox.Show("**** = " & strSetKey & " " & TerminalLocate & " " & TerminalID & " ")
            MessageBox.Show(TerminalLocate)
            'ObjMyComm = New MySqlCommand("SELECT * FROM pos_setting WHERE LocationCode=' " & TerminalLocate & " ' AND SettingKey='ADD_BINLOG' ", MyConn)
            ObjMyComm = New MySqlCommand("SELECT * FROM pos_setting", MyConn)

            MyConn.Open()

            ObjMyRead = ObjMyComm.ExecuteReader

            If ObjMyRead.Read Then
                test = ObjMyRead.Item(0)
                MessageBox.Show("This is " & test & "")
            Else
                MessageBox.Show("No value")
            End If

            MyConn.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            MyConn.Close()
        End Try

    End Function