Hi,
I am doing a project in VB 6.0 in that I phase following errors
1) Private Rs As ADODB.Recordset
Private Str As String

Str = "Select * From Table1; Select * From Table2"

With Rs
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Open
End With
At Open Statement it gives me an error "Characters Found After select statement"
What could be the reason. pls. tell me with example.

2) I want to add a RichTextBox at run-time. With the following statment

Private WithEvents rtfRichTxtBox As RichTextBox

Set rtfRichTxtBox = Form.Controls.Add("VB.RichTextBox", "rtfRichTxtBox")
At this stage it dos not allow me to add a RichTextBox run-time.

Pls. give me the solution for the above.


Thanx in Advance
Amol