Comments by Nanda_MR (Top 6 by date)

Thanks. I read that and I create similar class in VB.NET but how to call that class?

Guys that general code.

take look

Private Sub BtnGenerate(ByVal Msg As String)
Dim fs As New FileStream(Application.StartupPath & "\MailInfo.Config", FileMode.Append, FileAccess.Write)
Dim d1 As New StreamWriter(fs)
d1.WriteLine("ERROR: " Msg & " " & now)
d1.Close()
End Sub

This function I am calling in many places.
call BtnGenerate("Login Validation Failed")

Nothing. I explain problem
Try this code. Use 2 button

Dim Table1 As DataTable

Private Sub Button62_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
Table1 = New DataTable("Medicines")
Dim medname As DataColumn = New DataColumn("Medicine Name")
medname.DataType = System.Type.GetType("System.String")
medname.MaxLength = 500
Table1.Columns.Add(medname)
Dim dosage As DataColumn = New DataColumn("Dosage")
dosage.DataType = System.Type.GetType("System.String")
dosage.MaxLength = 500
Table1.Columns.Add(dosage)
Dim freq As DataColumn = New DataColumn("Frequency")
freq.DataType = System.Type.GetType("System.String")
freq.MaxLength = 500
Table1.Columns.Add(freq)
End Sub

Private Sub Button63_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
Dim Dt As DataSet
Dim dr As DataRow

dr = Table1.NewRow()
dr(0) = txtmed.Text
dr(1) = Me.txtdosage.Text
dr(2) = txtfreq.Text
Table1.Rows.Add(dr)
Dt = New DataSet
Dt.Tables.Add(Table1)
DataGrid1.DataSource = Dt.Tables("Medicines")
txtmed.Text = ""
txtdosage.Text = ""
txtfreq.Text = ""
End Sub

Thanks

From your code I got solution.

Regards,
Nanda