help me 100
<%
// 处理留言信息程序
int CurPage,CurPageSize,allRecordCount;
CurPage = int.Parse(lblCurPage.Text);
CurPageSize = int.Parse(lblPageSize.Text);
allRecordCount = int.Parse(lblCurRecord.Text);
if (allRecordCount == 0){
Response.Write("<TABLE class='tableBORDER' width='96%' align='center'><tr><td align=center>当前你还没有留言</td></tr></TABLE>");
}
else{
string connStr = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="+Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings["数据库"].ToString());
string SQLStr = "SELECT * FROM [admin] ORDER BY [时间]DESC"; // 当改为多用户时,在这里设置 WHERE 条件即可
System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(connStr);
System.Data.OleDb.OleDbDataAdapter da = new System.Data.OleDb.OleDbDataAdapter(SQLStr,conn);
System.Data.DataSet ds = new System.Data.DataSet();
conn.Open();
da.Fill(ds,(CurPage-1)*CurPageSize,CurPageSize,"admin");
conn.Close();
conn.Dispose();
da.Dispose();
for (int i=0 ; i< ds.Tables[0].Rows.Count ; i++){
%>
<B><% Response.Write(ds.Tables[0].Rows[i]["呢称"]); %></B>
这是C#的留言板,请问怎样把它改成VB的,这是在aspx页面里<%%>的代码怎样改.