birde söyle dener misin? eğer hata verirsede hatayı buraya yazarmısın acaba tam olarak istediğin şekli anlayamadım anladığım kadarıyla yazdım

Do While Not objrs.EOF
 bolum2 = & "<table width=""860"" border=""1"" cellpadding=""0"" cellspacing=""0"">" & vbcrlf _ 
        & "<tr>" & vbcrlf _ 
        & "<th scope=""col"">" & vbcrlf _ 
        & objrs("kod_no") & vbcrlf _ 
        & "</th>" & vbcrlf _ 
        & "<th scope=""col"">" & vbcrlf _ 
        & objrs("kod_no") & vbcrlf _ 
        & "</th>" & vbcrlf _ 
        & "<th scope=""col"">" & vbcrlf _ 
        & objrs("kod_no") & vbcrlf _ 
        & "</th>" & vbcrlf _ 
        & "<th scope=""col"">" & vbcrlf _ 
        & objrs("kod_no") & vbcrlf _ 
        & "</th>" & vbcrlf _ 
        & "<th scope=""col"">" & vbcrlf _ 
        & objrs("kod_no") & vbcrlf _ 
        & "</th>" & vbcrlf _ 
        & "<th scope=""col"">" & vbcrlf _ 
        & objrs("kod_no") & vbcrlf _ 
        & "</th>" & vbcrlf _ 
        & "<th scope=""col"">" & vbcrlf _ 
        & objrs("kod_no") & vbcrlf _ 
        & "</th>" & vbcrlf _ 
        bolum2 = ""
objrs.MoveNext
Loop