Dim sql5 As String
Dim cn5 As MySqlConnection
Dim cm5 As MySqlCommand
Dim dr25 As MySqlDataReader
cn5 = New MySqlConnection("Data Source=localhost;Database=redsocial;User ID=root; Password=aaa; Allow Zero Datetime=True; CHARSET=latin1")
cn5.Open()
sql5 = "select * from conversacion where autor_id ='" & Me.id_usuario & "' and autor_id= (select id_usuario_amigo from contactos where id_usuario='" & Me.id_usuario & "' and status=ok) order by id_conversacion"
cm5 = New MySqlCommand()
cm5.CommandText = sql5
cm5.CommandType = CommandType.Text
cm5.Connection = cn5
dr25 = cm5.ExecuteReader()
While dr25.Read()
RichTextBox1.AppendText("+ " & dr25.Item("autor_nombre") & " publicó mensaje " & " el " & dr25.Item("fecha"))
RichTextBox1.AppendText(vbCrLf & " " & dr25.Item("mensaje") & vbCrLf & vbCrLf)
End While
cn5.Close()