Visual Basic

Dim s As New StreamReader(fiTemp.FullName, System.Text.Encoding.ASCII)
Dim vba As String = s.ReadToEnd()
s.Close()

Dim s1 As New StreamWriter(fiTemp.FullName, False, System.Text.Encoding.ASCII)
s1.Write(newvba)
s1.Close()

(DataType : Date /*Primary Key*/)

(DataType : DOUBLE(10,3) )

Private Sub FormMdi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim d As Date = Date.Today
    qry = "SELECT * FROM Rate WHERE CurrentDate =" & d & ""
    Try
        OpenConnection()
        Dim dbcommand As New MySqlCommand
        dbcommand.Connection = conn
        dbcommand.CommandText = qry
        Dim dbread As MySqlDataReader = dbcommand.ExecuteReader
        While (dbread.Read())
            If dbread("CurrentDate") = "" Then
                Dim f As New FormRate '// This is the form associated with the table
                f.Show()
                f.Owner = Me
            End If
        End While
    Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        CloseConnection()
    End Try
End Sub

Finally
            CloseConnection()

While (dbread.Read())

If dbread("CurrentDate") = "" Then
                    Dim f As New Rate '// This is the form associated with the table
                    f.Show()
                    f.Owner = Me
                End If

Private Sub LblCoCau_Err_Click(sender As System.Object, e As System.EventArgs) Handles LblCoCau_Err.Click
       Dim newThread As New Thread(New ThreadStart(AddressOf ThreadMethod))
       newThread.SetApartmentState(ApartmentState.STA)
       newThread.Start()
   End Sub
   Private Shared Sub ThreadMethod()
       Dim dlg As New OpenFileDialog()
       dlg.ShowDialog()
       MessageBox.Show(dlg.FileName)
   End Sub

Attempted to read or write protected memory. This is often an indication that other memory is corrupt.

Private Sub PopulateData() '// Filename (user.dat) into listview
    Dim FilePath As String = Application.StartupPath & "\users\"
    Dim ContentItem As String = Dir(FilePath & "*.dat")
    ListView1.Items.Clear()
    If ContentItem = "" Then
        MsgBox("No users found.")
    End If
    Do Until ContentItem = ""
        ListView1.Items.Add(ContentItem)
        ContentItem = Dir()
    Loop
End Sub

Private Sub FormCreateUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    PopulateData()
End Sub